3iRS IDENT 6/30/67 

# ENTRY PQINTI 

ENTRY TFC02 

INTRY TRAPB#CPUP#I0P#NTRP»B4TRPB 

INTRY T#SSX#S$01|SS0g#$S03#BiTiEP8PX#BSE 

INTRY MGETjMPUT#TRAP#MDELiNTRAP# TRAPS 

INTRY MX0l#MSO3#MX13 

^NTRY TRAPI^TRAPM/TRAPR 

ENTRY RFK/TPK#FKSTW#NFK#GFK#SCrK#DFK 

# ENTRIES FR9H mm 

INTRY PBf PX# PPi# NFtRK# 0BT9P 

« 

* tSBRH»#»SBRR»i 'EXSf 6/28/66 

* 

SSRH P0PD 17000000|#|#l#0#l 

SM8 ITX SS03^ lAX* 01 XXAJ ETR AOHSK 

MRG §#00400000; XMA 0; EBR •(t^OOOOBi STA« 

CXA; IQX SS03j BRR 

* 

SiRR P6P0 17J0000Oi# 1#1/0#I 

SRS ITX iSOII 40X# 01 |AX 0#6l STX T| LPX SS03| BRR* T (TIME >C US) 

« "" . 

* EXECUTE INSTRUCTION AND SKIP 

♦ INPUTI EXS Y 

♦ Y IS L9C 9F INSTRUCTiaN T0 EXECUTEt Y MAY CONTAIN A BRM» 

* Y Wa^ BE EXECUTED |N SYSTEM M©DEi 
EXS POPD 15i00000^#|#l#0#l 

XiP ITX iS03; lOX PACPTRJ SKN PQU^Si BRM TRAPS 

LDX SS03; LDX# 0; STX XSPl; UDX S$03 
XiPi i^R^; BRR Oi MIN Oi BRR 
# 

# tiR|» $/27/6S 

# THII R0UTINI PItPATQHIS 0N THE AODRES$ QF A tiR$f 
# 

T imi* UNIVERSAL TEMPORARY STORAGE 
BiX ^ROl* iRS EXIT 
SSOl mQi* SAVE (A) 



SiOa ZR9i# SAVE (3) 

8^03 ^R8;* SAVE (X) 

« 

BRS PePD 173OOOOOB#i/|/0n 

BS STA SSQU STB SS02; STX SS03J EAX* 
LDA f»<*OO00B; ADM Q 
CXAi ETR ADMSKi SKQ i?BSTU*(3ST; BRU BSl 

BST ^RM TRAPB (0)) BRU MBNBPNi BRU M&NCL5; BRM TRAPS 
BRU MPT (4)/ BRU SSCH; BRU SSIN; BRM TRAPB 
BRU ISH (8); BRU FKST; BRU PPAN; BRU CIB 
iRU CET (IS); iRU SKI; BRU D^B; N8P 

NdP 1 (16); mp Zi mp 3 J mp % 

mP 5 (20); BRU rNA; BRM TRAPB; BRU UNKS 

iRU INKC iBk)i BRU MSGS; BRU SKR8UT; BRU ASTT 

|RU RSTT (38); BRU C8B; BRU FKRD; BRU FKWT 

BRU FKTM (32); EAX GETSTR; EAX 8UTMSG; EAX 8UTSTR 

SAX 8UTNUM (36); EAX QS188K; EAX GETNUM; BRM TRAPB 

iRU RD^T (4fO)| BRU 18RET; BRU RREAt; BRU RORL 

BRU STRL (^4); BRU SQ8; BRU NR8UT; BRU SR8UT 

N8P 6 (48); BRU SRIR; BRU FF|X; BRU FFUT 

N8P i002B (52); N8P 1003B; BRU RRSB; BRU MRSB 

BRU MBEX (56iJ^.JiRa_CQ8; BRU SSMF; BRU CBRF 

N8P 9 (60); (|8_M TRATO BRM TRAPB; BRM TRAPB 

BRM TRAPB (6TTT~fRTl' TRAPB; BRU DFDU; BRU DFER 

IRU EBSM (68); BRU GBSM; BRM TRAPB; BRU SKXEC 

BRU EXQMS (72); BRU CPPAN; BRU F3WT; BRU FSFZ 

BRU FSMT (76); BRU FSTM; BRU SAIR; BRU SIIR 

BRU MBR8 (80); BRU WREAL; BRU SWSF; BRM TRAPB 

BRM TRAPB (84); BRU SET8P; BRU CLR8P; BRU DFRX 

BRU RT|X (88); BRU FSCF; BRU DFR; N8P IGO^B 

BRM TRAPB (92); BRM TRAPB; BRM TRAPBl N8P 7 

N8P 8 (96); BRM TRAPB; BRM TRAPB; BRM TRAPB 

BRM TRAPB (iOO); BRM TRAPB; BRM TRAPB; BRM TRAPB 

BRU RSY3 (i04); BRU WSYB; BRU FKWA; iRU FKRA 

BRU FKTA (J08); BRU DMS; BRU RPU; BRU 8RSRET 

BRU TS9FF (112); BRU DFCD; BRU MTDI; BRM TRAPB 

BRU RURl (116); BRU SURL; BRU TQETj BRU TREL 

BRU APMTE (120); BRU DPMTE; BRU MPAN; BRM TRAPB 



ir VI 

SRg ARQ (BE+1#124)^ ^RU AWD; 8RU CARRYl BRU PEBRS 
BRg SDiM (iE^5ilg8)i BRU TTVeNj BRU BPTESTi BRU CRASH 
iRU RDSVB {8E*9#132)i BRU NDSYB; BRU CRSW; BRU TIMINT 
BRU SET$W (BE*13il36); 8RM TRAPB; BRU RDPSEi BRU MFSYS 
BRU CK^UF (BE^-n^UO); BRW TR^AFBl' NgP 10 
ENDF . . .^ 

B§TU BRM TRAPB 

BSl LPA BSr iti STA B§Xj SKA §20000008; BRU BSE 

LDA SSOlj UDX PACPTRJ EXU 0SX (G8 IF DIRE;CT) 
# 

♦ CHECK FOR CUASS 2 BRS 

BSE LDX O; SIX SBRSRT; SKA ^JOOOOOOB; BRU BSE2 

« 

♦ eiASS 3 BRS SETUP AND RETURN ReUT|NE 

• EXEC BRStS 
» 

UBRIET IbPA NFORK; SKO «?p; BRM TRAP© 

IRM GFK/ BRU PK$TN| BRM STFK| MRG X$| LDX FKO^ (NEW PACPTR) 

STA P0U#2i IPA 0SX| RCY 9l ETR «37B; CAX| IDA BRSTV/2 

RSH 12i STA T; IDA »4^0018; UCY lEi STA 

|„DX PACPTR; UOA RLI^E; STA UBRUl; LDB RL2#2; STB UBR12 

tDA iNCMEM*l0O0O00B+i00OOB| MRG T; CIB 

LDX FK04; STA RLl/2; STB RL2#2; UDA SSOl; STA PA#2; STA UBA 

LPA BSX; ETR «777B; ADD Q; STA Pli2 

lOk iEXECLl RSH 15; UDA jei; UiH 15; MRG X5; STA PTAB#2 

LDX STFK2 (NEW XPB ) 

LDA SS02; ITA PB#2; STA UBB; IDA SS03; STA PX/2; STA UBX 

LOA SBRSRT; STA Q; STA UPL; IDB i700004B; BRU PSPST 

# 

♦ CLASS 2 MdNITOR BRS'S 

# SAVE RETURN 

B^E? LDX ?UBRSET; STX 0; LDA SSQU IDX SS03; BRU* BSX 

* RETURN FRaM CLASS 2 BRS»S 



E:P©PX SKN TIME! BRR SBRSRT 

SKN TTJME/ SKN ACTR; BRU ♦*2| BRR SBRSRT 
STA SSOU STB SS02| STX SS03J IDA SBRSRT; 



STA O; BRU SQd 



* BR$ XXX 
BRSRET IDA 
LDA 

IDX 
STA 
STX 



RETURN FRdM EXEC BRS»S (ClASS 3/# ) 
PPTR#2l MRO PLNSK; CAX 

PTEST#2; SKE 17000046; BRM TRAPB; SUB «3; STA PTEST/2 
UPUf STA Ol STX TFOl; IDX PACPTR; BRM DFK 
TFOU IDA PIM#2; LRSH 3; ETR «7; MRG X4 

XPB; Ci^B; STB EXECl; UDB »•!; UDA PTAB#2| SKA X2; STB EXECl 
PACPTRl BRM CHRL; BRM TRAPB; BRU PdPX 



♦ BPS 4^ 

NRaUT iKN 

♦ BRS 26 
SKR8UT LDA 
« BRS 47 
SReUT SKN 

ETR 

♦ BRS 90 



SET N9N»TERMINABIUITY 

PQU#2; BRM TRAPB; UDA PIM,2; MRG XI; STA PIMj2; BRU P8PX 

SKIP IF TERMINATION PENDING 

PIMi2; SKA X2; M|N 0; BRU P8PX 

CLEAR N8NiTERM|NABlLITY 

PQy#2; BRM TRAPB; LDA PIMi2; SKA XI; BRU ♦'•'2; BRU PQPX 

»47777777B; &|1^ IH^t2T" BRO PAtlJE ' 

DECLARE FeRK F9R RUBeUT 



DFR CXA; LPX UTTY; STA TTYASGj2; BRU PQPX 



MEM8RY ALL8CATIBN L8GIC 



♦ ASSIGN A P0SITI8N IN PMT 

PMGET ^R8; LPX U8B; LDA PMA#2; SKA »2770Q000B; BRU **2; BRR PMGET 
ETR f77B; STA SMGET; CLA; LDX ??NCMEM-»l; BRU MQET4 



MQETl EAX 1#2; JSKE* PMTU0B; 
M(3ET4 SKR SMC5ET; B^\J MGETl; 
# ASSIGN A Pe§ITI8N IN $MT 
SMGET ZR0; ABC; LDX fNSMT 
Smi SKE SMTEi2; BRU SMG2; 
SMG2 BRX SMGl; BRR SMGET 



BRU 
BRR 



MGET4; 
PMGET 



MIN PMGET; BRR PMGET 



CXA; ADD pNSMT; MIN SMGET; BRR SMGET 



* QET A Bi,0CK QF MEM8RY 

• INPUTJ A*C8RE ADDRESS 

# 



IN PAQEf INDIRECT BIT IF MEM©RY HyST 
C9ME FR8M AN UPP|R fQRK» 
8«NUMB^R T8 ADD T0 PMA^ X'PACPTR 
MGET IRQi BRM MXQU SKE ^Qi fQR[[j^();^: 
UDA f-Si STA MX09; UDX M'SCa^"- 

# SCAN F9R UeCAi, 9R F|XED MEMQRY FaRK 

MdETU ITX MX08; IDA RlXiZ} UDB HL2i2i LDX MX07I M|N MX09 

UCY 0#2i SKA »770000Q0fil_BRg MGETiai LDX MX08 a .-< ? 

SKN PIMi2j BRU ♦*gj (jRU^ HX0l> SKN PTAB#2 

iRU MGETI3 (CHECK HigH^RTFllKS FIRST) 

LDA PMTAJ SKA. f40000B;C^Ry_ MX03 >■' 

MIN MX09I BRM PMGETi (BRU HxffS ,x^. 

iTX MQTSai BRM PMTAjC^ff'^Wf^ UDX MS03 

♦ PRtPAPATE NEW BYTE AS NECESBW""^" 



UDX 
XSl 



MX07 
RCY 0#2 



MQETIO STX MXQ8I UDA RUU2; UDB RU2#2; 

UCY 0#2J RCY 18; MRG HGTSSj UCY 

UDX MX08; STA RU1#2J STB RU2i2 

UDA PPTR#2| MRQ PUMSKi CAX; SKR MXO^i BRU MQETIO 
♦ SET UP NEW MAP AND CUEAR BU^CK 

UDX MS03I BRM CHRlj <:^3XilX:aDX MSOll EAX 

CePY XA#B; MRG »2360Q000B;_STA MQET14; IQX 

§TB 40Q0B/6j BRX MGET14; (:|Ry WxOr--^ 

URSH lai LDX MS03; BRU MQETl 

UDA PPTRjE; MRG PUMSK; CAXi 'BRy MGETll^ U 



M0ET1# 

MGET12 

M(iETl3 

* 

# ASSIGN 



4000B#6 

■ ••#000B 



BU©CK IN PMT 



.•?-. 



V- 



MQTSli CUEAR; SKN MQTS5; BRU MGET3 (ASSIGN TS BU©CK) 



AX 



PHTA IRdi STX 

UDA RMAP 

SKE fOi BRU MGET9; BRR PMTA (Ne 
MGET9 UDX i»j; N9D 2^; CXA; CNA (PAGE 

UDA X#; Uf=?SH 0|2; CXB; EQR »•!; 

STA RMAP; C8PY BX#B 
M0ET3 UDA U8B; SUB fU USH 4; CNA; RCH 1200B 

USH 5 (RAD AODRt); ADD »NSSP; USN J 

MRG X4; UDX MGTSl; STA* PMTJQB; UDX J0Bl LDA PMA#2 

iKG X2; ADD MS02; STA PMAj2; MIN PMTA; BRR PMTA 



R60M) 

NBf); cePY 

ETR RMAP 



(CNA/CXA) 



# RELEASE MEM9RY 

MPUT ZR9; BRM MPuTA| 

* 

MQTSl ZRQ 
« 



BRU *^2; M|N MPUT; BRR MPUT 



MPUTA 



MPUT2 

« 

# INPUT 

MDEL 

MDEL4 



MDEL5 
MPEL$ 
MDEL7 



MPEU9 
MPUT3 



MPUKf 



MDEUS 



ZRa; BRM MXOU SKQ iNCMEM^U BRM TRAPB 
CAX; IDA* PMTJSBl SKg 9Qi §KA XU BRM TRAPB 
SKA X2l BRU *^Zi BRU MPUT2 
CXB; UPX MSOi; SKN PQU#2J ^RM TRAPil CBX 
BRM MDEll BRU MX13 



PTRL; STX MDEL3 
JiBi LDA MDE13; 



STA RL3i2 



I XiRElABEi,ING BYTE» i 

ZRdi STX MDEUIJ LDX i.NPAC*NPPAR 

§TX MPiU^i LOA PTAB^a; RCY 15| ETR «778 

SKE U8B; BRU M0E17*U IDA RL4/2; LPB RU2i2 

UDX U88I LDX RL3#2| BRM UPRL 

lOX f-lO; LDA MDELl; STA MDEL3 

SKE SRTE#2; BRU MPEL6; STX MPEL3 

CLA; STA SRTE#gj LDA MDELi 

iRX MPEL5; SKN MPEL3i BRU MDEL7; BRM 

LDX MpEL2i STA RL1|2; STB RLa#2; LDX 

LDX MDEL24 EAX NPPAR»li6; BRX MDEL4 

LDX J9B; LDA PMA#2; SKG X2j ADD ?100000B*100S J 

LDA MDELU AXC; XMA* PMTJ9B; SKA X4; BRU MQELS 

CA3; ETR *37B; CePY AX#BA#B; STB RMT/2i STB RMA#2 

RSH 6; ETR "IJB (PAGE N9*)j SKE »0| BRU **2 

BRU MPUT4 (TS 8L9CK)i CAX; LDA X%i LRSN 0#2 

MRG RMAPj STA RMAP 

BRM RSAM 

LDX PACPTRi LDA RLI#2; LDB RL2/2; LDX jeS; LDX RL3j2 

BRM SWAP; BRM TRAPB; STX BRRL3 

BRM LAIELi BRR MDEL 

SKA XU BRU **2; BRU MPUT3; CaPY AX#B 

LDA SMT#2; SKA =176000008; BRU MDELiO; STB SMT/2; BRU MDEL9 



STA PMAi2 



MPELIO SUB »200Q00B^ STA SMT/H; BRR MDEL 
»MQTS5 DATA •! TS B18CK ASSIGNMENT FLAG* 
« 

MDELl l^Q 
M0E13 IRQ 



♦ C9MM9N ENTRY FSR MQETjMPyT/CHKRa 
« GET REUABILINQ BYTE INT8 A 

♦ INPUTl AiADDRt IN PAGE* XiPACPTR 



MXOl 



MX13 

MX03 
« 

MSOl 
MI02 



MXOO 
MX05 
MX06 
MX07 
« 

MX08 

MX09 



^R8; STA PMTA; ETR »3400QB; STA MSOli STB MSOai STX MSC3 
LDX HXOli LDB mXf^i STB MXOOi IRSN U; STA HX05; MUL s3 
LDX MS03i LDA HlljZi LDX RU2#2^ XXB; STX MX07 
RCY 18| LCY 0#2; ETR «77B| STA MX06; BRR MXOi 

UDX MS03; iRH CNRll BRU MXQ3 

MIN MXOO 

UDA MSQl; UDX MS03j BRR MXOO 



IRQ 

IRQ 
ZR9 

zRe 

IRQ 
ZRd 



ADDRt 0F tST weRP |N PAGE 

Q C9NSTANT F^R M8D|FYINQ PMA IN PMTA 

PACPTR 

RETURN F8R MQET QR MPUT 

PAGE NUMBER 

REIABEIING BYTE 

REUABEUING ^YTE INDEX 



# 'M8|Xt# tM|R§»i'APMT|r#'DPMTE'#»MPT» 6/30/66 

« 

# BRS»S F9R M0OIFYING THE MEMORY TABLES 
# 

# 8RS 56 MAKE B19CK EXEC 

# INPUT! A»PMT N9i IF ^IT 8F A«li MAKE BU6CK EXEC* 



# IF SIT Q 0F AfO# MAKE BL8CK N0T EXEC« 

# ©UTPUT; bit 9F A»i IF B!,8CK WAS FORMERLY EXEC. 

MBEX SKN PQU#2; BRM TRAPBi ETR «77Bi BRM CRTAj BRM TRAP8; MRQ X2 
SKH SSOli E9R X2i XMA 0#2; ICY 1 
ETR X4^ XMA SSQli ETR f77Bi ADM SSOll BRU PQPX 



MBEXl 
• 

# 8RS 80 MAKE BL9CK READ aNlY 

« INPUT? A*PMT Nei IF A ^T 0# MAKE FIUE 

♦ eUTPUTJ AfF0RMER STATE @F PMT ENTRY 



Ret BTHERWISE# READ-WRITE 



MBRa 
MBRDH 



^TR 

SKA 

tDA 

$KA 

IKA 

SKN 

ETR 

LDX 

IDA 

XXB; 

IRQ 



f778J STA MBR©6i BRM CRTA; BRM TRAPS; STA CRTA 

X2j BRU MBRSiJ UDA MBRQ6i SKG fNCMEM»n BRU MBRei 

0#^J SKE «Q; BRU #*2/ BRM TRAPS; SKN SSOU BRU MBReS 

wkQBi BRU MBR85; MRQ t^OB; STA 0^2 

Xki BRU MBR85; BRM 8MW| BRM RTS 

NRCUl BRU »•!; BRU MBRS^ 

i{N8T)40B; STA 0#2; SKA X4; BRU MBR85 

PACPTR; BRM CHRL; BRM TRAPS 

CRTAi ICf 18; BRU MBEXi 

SKN PQUi»2; BRM TRAPS; CBX; BRU MBR92 




MBR83 
MiRe^ 
MBRSB 
MBR81 

MBR86 

« 

♦ 8RS 120 ADD A PAGE F8R SPECIFIED PMT ENTYi 

* INPUTI A»REU« BYTE 

APMTE SKN PQU#2; BRM TRAPB; SKG ?NCMEM»l; BRM TRAPB; AXC 

§KE* PMTUea; BRM TRAPB; LDB ••lOOOOOB+lOOB; STB MS02 
i,DA fTRAP»i; STA MXOO; BRM PMTA; BRU MTRAP; BRU P8PX 



• 

♦ BRS lil 

♦ INPUT; A 
DPMTE 



DELETES PMT ENTRY 
REUi BYTE 
ETR i778; SKQ iO; BRU P8PX; $KG iNCMEM-l; BRM TRAPB (SMT ENTRY) 
Ita MDIU; BRM CRTA; BRU P8PX 
CBX; SKA Xa; BRU DPMTEl CEXEC PAGE) 
tDX MD^L; BRM MDEl; BRU POPX 
SKN PQU#2; BRM TRAPB; BRU DPMTE2 



DPMTE2 

DPMTEl 

# 

♦ BRS 4 DELETES A PMT ENTRY. 

♦ FR8M ALL 8THER F8RKS. 

♦ INPUT! A«APDRi IN PAGE T8 RELEASE^ 
MPT BRM MPUT; BRM TRAPB; BRU PdPX 



REM8VES PMT PBINTER 



♦ 

# COMPUTE RELABELING TABLE ADDRESS 

# INPUT? A^PSEUDQpRELi ^YTE 

# eUTPUTi AfPMT ENTRY# BilNPUT X# XtPHT/SMT ADDRESS 

# RETURN SKIPS IF PMT IS N9T EQUAL ZERe. 

CRTA ZRei C0PY XB#AX; SKQ sNCMEM«l; 3RU CRTAl 

EAX* PMTU9B; LPA QtZi SKA XU BRy CRTAl 
CRTA2 SKE fOi HIN CRTA; 8RR CRTA 
CRTAl ADD iSMTj CAX; LPA OiHl BRU CRTA2 
• 

# »RDRL»#»RyRL»#»STRL'#'SURL' 6/28/66 

« 

# READ AND SET RELABELING 
# 

# BRS #3 READ F9RK RELABELING 

RDRL LDA RL1#2; LPB RL2#2i LDX SS03; iRy %PnP 
# 

# BRS 116 REAP RReQRAM RELABELING FR8M TS BL8CK 

RURL SKN PQU#2; BRM TRAPB; LDA yPRRLU LDi UPRRL2J LDX SS03i BRU XPaP 
« 

# IRS 4^ SET F8RK RELABELING 

STRL LDA X4| $KN PQU#2; BRU *+2i BRU #*4^ 

LDA X6| SKN EXE;C1I iPA X2r CAX 
STRL2 LDA SSOil BRM SCRLi BRM TRAPB; LDA SSOJ; LDB SS02 

8TA RLl/2i STB RL2#2; BRM CHRL; BRM TRAPB; BRU P^^)^ 
* 

# BRS XM SET PR9GRAM RELABELING |N TS BL8CK 

SURL SKN PQU#ai BRM TRAPBi AXC; SKE UEXFLG; BRU **3 

LDA X2| BRU **^J LPA X4; SKN UEXFLGi MRG X?; XXA 
BRM SCRLi 8RM TRPB; LPA SSQU LDB SS02 
iTA UPRRLU STB UPRRL2; BRU P^PX 

* 

# UNPACK RELABELING AND CHECK F9R LEGALITYt 

# INPUT? k^Rl%» 8iRL2 

# INPUT? XfX2 F9R USER/ XiX6 FBR SUBSYSTEM/ XfX4 F9R SYSTEM 
« 6UTPUT? XfPACPTR 

# NQ %^\P\ A PMT ENTRY. 9R USER TRIED TB RELABEL AN EXEC PAGE. 

# SKIPI RELABELING &Ki 

SCRL ZR9; STX STRL5; XXA; ETR X2; XXA 



iTX STRl^i CLXj BRM UPRU 

STRLS I.DA SRTEia; SKQ pNCMEM-I; BRU STR16 

STRU7 &RM CRTA; BRR SCRLl CBX 

SKA ^TRU^fi BRR SCRU; BRX STRU3; MIN SCRLl LDX PACPTRi BRR SCRl 

STRie $m STR15; BRU **^i iRU STRL7; SKE «»0; BRR SCRL; BRU STRL7 

STRL,<> ZR9 PeR EXEC 

STRU5 ^R9 PeSITlVE FBR USER STATUS 
• 

# ♦EBSMfi fQBSM» 7/15/66 

# iRS'S F8R MI^DIFYING SMT 
* 

# BRS 69 PUT SMT POINTER JNT9 PHT 

# INPUTS AfSMT NUMBER 

# aUTPUTi AiPMT NUMBER 

Gp§M SKN EXECU BRM TRAPBl LDX PACPTRj LDA SSOl 

SKQ fNSMT"!; SKG ^Qi BRM TRAPBi C0PY XB^AX; LDA SMT#2 

IKE iO^ BRU *^Z} BRM TRAPB; SKA Xg| BRU GBSMl 
Gi$M2 IRM PMQETl BRU MTRAPl CXAj XMA SSOi 

l^ VI 

ADD X5 

ELSF X 

ADD X6 

ENDF 

LDX SSOU STA# PMTgei) CAX 

LDA fSOOOOOB; ADM SMT/Hi BRU PdPX 
GiSMl XXB; SKN PQU#2J BRM TRAPB; XXB; BRU GBSM2 
# 

IF -VS 

# BRS 68 PUT PMT ENTRY |[NT8 SMT 

# INRUTI ApPMT RELt BYTE 

# eUTPUT: AfSMT REL» BYTE 

EBSM SKN PQ\J*2i BRM TRAPBi BRM SMGET; BRU MTRAPj XMA SSOl 

XXA; ADD E9SM3J XMA* PMTJ^B; LPX SSOl; STA SMT^Si BRU P8PX 

IF VI 
Ei$M3 Zm NSMTil 

ENDF 

ILSF 1 



EBSM3 



IRQ NSMT/6 

ENDF 



TRAP R8UTINES 

SIMULATED RgSeUT 

TERMINATES 1H% SPECIFIED NOt 9P FSRKS UP T8 THE 
FIRST EXEC FQRKi 

INPUT! A»N8« 8F F8RKS T8 TERHINATEt 

BRS 73 

lU STA TFK 

TFKl BRU *^Zi BRU PPANj STX PACPTR 
PPTR#Sl MRQ PtMSK; C8PY XB#AX 
PQUiBl BRU EPPANU STB PACPTR 



# 

EPPAN sue 
EPPANl SKR 
UDA 
SKN 
# BR$ 10 
PPAN l,OA 



0; CLB; BRM PTRAP 



# iRS 7J SKIP IF EXFLQ SETi SET BsUEXFLQ VALUE. 

# \JtXflQ VAi,UI? 1 ^i •g 

# EXEC TYPE! t NEITHER B8TH 2 

SKXEC UDB UEXFtG; STB SSQ2^ SKN UEXFUGJ BRU PdPXi MIN Q; BRU PePX 

« 

# iRS BE*16 MAKE F8RK SYSTEM STATUS 
MFSYS Ike f7<&5#32t08| BRM TRAPS 

i,DX ^8il kPA ii4000000B; SKA CPARWjgj BRU *+2; BRM TRAPS 
LDX PACPTR; IDA X4^ MRG PGU#2; STA PQU#2j BRU P8PX 

« 



* lipLiaAL INSTRUCTION TRAP 

TRAPI |R8i STA SSQU STB SS02; STX SS03i IDA TRAPIi LDB »1| BRM PTRAP 
# 

• QIENERAL TRAP L9GIC 

PTRAP IRQl |,DX PACPTRl SKG »»!; BRU *+2l IDA Qi ETR -50037777B 
STA Pli2; IDA SSOX; STA PA#ai SKN XPBi BRM M9NCR 



lOX XPiJ LDA SSOa; STA P^s2 

LDA $SQZi STA PX»2i UDX PACPTR 

BRM RFK; BRM TFK^ BRU PACQ9 
♦ ILI^EGAi, SYSPeP EXIT 
TRAPS ZR9; eRM TRAPB 
NTRPB im 

NTRAP BRM MPPACT; BRM TRAP! 
TRP8 iss 
TRAPi IRQ 

TRAP IDA 0; IDB •%! BRM PTRAP 
#READ«9NLY TRAP 

TRAPR ZR8; STA SSOU STB SS02I $TX SS03J IDA TRAPR; STA OJ BRU MTRAP 
♦MEMORY TRAP 
TRAPH IRQi STA TXOll STB TXOSl STX TX03 

LDA TRAPM; ETR »50037777B^ STA TXOO; BRM CAEi MRG »40000B ' ; 

tDX PACPTRi tOB f»100000B+100B; BRM MGETl BRU TX05 

R8V^ IDA TXOQ; ICV Ij ISH 1 

LDA TXOU UDB TXO^I UDX TX03| BRU* TXOO 
TXOi IDA TXOU STA SSQIi LDA TX02I $TA SSQ2i UDA TX03i STA SS03 

tOA TXOO; SKA X4I STA 
MTRAP LDX PACPTRl IDA flOOOOOOB; BRM-I|R; BRU MTPAN; BRU PBPINT 
MTPAN IDA 0; UDB «2; BRM PTRAP 



TXOO 

TXOl ZR8 



TXOt 

TX03 zm 

# COMPUTE EFFECTIVE 8UT^eF^B6UNDS ADDRESS 
» INPUTI A»TRAP IQC* 

♦ 0UTPUTJ AfADDRESS dR X4 IF PBP CAUSED TRQUBLE 

# m iK|PsVP90R psiacf branched t©. 

# TIME 1 li4""+ N CY ■'■^■~ -■ -u-i-f a,.,,. 

CAE IRQi STA CAEU STX CAE3 

CAEU BRM CEX; IDA* CAEll BRU CAE4 

♦ ADDRESS F9UND 

CAE^ LDA CAEU BRR CAE 

# ADDRESS N8T FdUND 

CA|# LDA CEX3J STA CAE2| SKA XU BRU CAE64 LDA lABlTi ADM CAEl 
LDX CAia; BRM CEX^ EAX# CAEll BRU CAE7 

* INDIRECT ADDRESS CHAIN eUT»er*B9UNDS 



LDA i*<*OOOOBl ADM CA^U BRg CAE9 
CAES LDA CAEU ETR X4| MRG CEX3| ETR §600377776; STA CAEl 
CAI9 LDX CAI3I BRM CtXl LOA* CAEU BRU CAESi BRU CAE5 

♦ P0P CAUSED TRdUBlE 
CAI6 l^DA X<f| ^RR CAg 

# CHECK F9R EXU* OTHERWISE X CBNTAINS BAD ADDRESS 

CAE7 CXAi ETR •40037777B; STA CAEll LDA CAE2; E9R EXUW 
$KA tl7700000Bi BRU CAElOi IDX CAE3; BRU CAEll 

* N8T EXU 

CAEiO MIN CA|; BRU CAE5 



CAEl 


ZR9 




CAE2 


^R9 




CAI3 


^R9 




EXUW 


|xu 





IA8IT 


im* 






♦ EXECUTE NEXT |N$TRUCTI0N AND SKIP IF 9UT»eF^B9UNDS 

* TIME 1 31 * N CY 

C|X IRQ} M|N CEXi STA CEXU IDA CEX2; XMA #10; STA CEX3; EXU* CEX 
CIX4* XMA CEX3I iTA ik%%i UDA CEXJ; BRR CEX 

♦ 9UT«©r BauNos IF m cqme here 

C|Xa ©RU **li MJN C|:X| BRU CEX# 

CEXi im SAVE A 

C|X3 IRQ Q C9NTENTS 8F A AS A RESULT 9F EXECUTING NEXT INSTRt 

♦ 8RS 132 

# SIMULATE MEM9RY TRAP FR8M EXEC BRS. 

# INPUT! AiCeRE ADDRi 

MPAN LDA PQU/H; E8R X6; SKA X^; BRM TRAPB 
LDA PPTR#2; MRG PLMSK; CAX; LDA SSQl 
LDB fipl000008*|00Bi BRM MGETl BRU **2j BRU PdPX 

* MEMORY TRAP 

LDA SSOU STA UPL/ BRU MTRAP 



|F VI 

* PARITY INTERRUPT ROUTINES 

CPUP ZRd; STA CPAl STB CP^; STX CPXi SKN CPUPj BRM MCR 
MIN CP\JPCi LDA CPUP; STA TRAPI; LDA CPA; BRI #^1 
8Rg TRAPI*1 

# 

IBP ZR9; E9D 120001; PIN lePU STA IPA; STX IPX 

MIN lePCl SKN |9P| BRU **2l BRM MCR (USER MQOE) 
UDA iePIl STA# lePPi MIN lePP; LPA EISPL; LDX »I9PL 
SKG lePP; STX I8PP| UDA IPA; LDX IPX; gRI IQP 

CPA im 

CP8 ZR9 

CPX IRQ 

I PA ZR6 

IPX IRQ 

I9PP QATA I6PL 

I0P1, iSS 15 

liaPL DATA # 

IQPI IHd 

• 

MCR ZRa; CKFi DIR; BRU* * 



« 

• PEBRS BR§ BE*<^ 

# rIaPS ©r SETS A W9RD IN THE MdNIT^R* 

# INPUT? x«L©Ct er weRD 

# READS IF B IS POSITIVE* 

♦ SETS W8R0 T9 C8NTENTS 9F A JF IS NEGATIVE^ 

♦ eUTPUTj Af FARMER CONTENTS df weRDt 

PEBRS SKN IXICU BRU ♦♦2| BRU #•►3; SKN PQU/2i BRM TRAPP 
LDA SS03; SKG *3.77777Bl SKG s»U BRM TRAPB 
RSH ill ETR i37Bi MRO i600B; XMA RRL3; STA PEB2 
L,RR3i P9T RR13; ClAj LSH U 
UOB f77B; SKB RRl,3j ADD s34000B 
SKN PQU#2i BRU PEBRSi; SKN SS02; BRU PEBRSl 
CAX; IDA S§OU XMA 0#2 

PIBRS2 STA SSOll t,DA PEB2; XMA RRL3I LRR3i PeT RRU3I BRU PBPX 

PEBRSJ CAX; IDA 0#2l BRU PEBRS2 



P|B2 IRQ TEMP ST9ARAGE F9R RR^3 

# 

# S|T$W BRS BE+13 

# SET SWITCNEi F8R M8NIT8R AND EXEC 

« INPUT; AiNEW SWITCH VAigEt XtSWlTCH NUMBERi 

# aUTPUT! A»eLD SWITCH VA^UE, 

SETSW SKN PQU#2/ BRM TRAPBj IDX SS03; XMA SWEX#2 

STA SSOli BRU PQPX 
« 
« 

# BRS BE*15 READ PA^E FRQM RAD 

# INPUT! AsSMT PeiNTER 

# eUTPUT; BiRAD ADDRESS OR UNCHANGED 

RDP^C |KN PQy#aj BRM TRAPB^ CdPY AX^B; SKG »NCMEM,1 

|K^ iOl BRM TRAPSi SKN SNT#a^ BRU ♦+g| BRU PdPX 

IDA tRTCJ STA RSYBTlJ IDA SMT#2; ETR .1777008 

LRSH 1; STA SS02I IDA SMTj2i ETR i37B; LSH U; BRU RSYB2 

ENPF 

# TRAPP|:D M0NIT8R FEATUf^E$ 

TRP SSMF#CBRF/$WSF 

TRP ASTT#R§TT#1,NKSjLNKC#MSGSiE6SH 

TRP FSWT4FSTH#FSFZ#FSMTiFSCF#RRSB^MRSB 

# TRAPPED EXEC FEATURES 

i1?P^— -DMSMrEMSM^ GNSNi E$SF# GS^F # HELPS# H€t.^M - ^ 
TWZ.^..^^^.- »£CCaE.Y#£CSAV€'# ECPt AC# EtFNDU/ EeC 
TRP RGDEF^RGDEl/SGDEF/SGDEL 

# F8RK UPGIC 
# 

# FIND HIGHEST F8RK IN STRUCTURE 
HFK IRB 

NFKJ Lda PPTR#2; SKA PRM.SK; BRU **2j BRR HFK 
MR6 PUHSKi CAXi BRU HFKl 

# GET F0RK INTRYt PUT PPB INTQ PIM, 



QFK IRti IDA FPLSTI SKG «0J 3RR QFK 

$U8 fPPTR; C9PY AXiA 
XMA PPTRiH; STA FP^ST; M|N QFK; BRR GFK 

♦ PUT N|W FSRK 9N QI8 

# SET PD9WN{9|„D)«NEW# PD9WN(NEW)fO 

* PF9RK(NEW)«9LP# PPAR (NEW ) »PD9WN{9l,D ) 

STFK ^Rei STX FK04I SKR NF8RKi BRU *+2; BRM M9NCR 
yOX PPil LOB Pi#gl STB PPBl CXB; STB STFK2 
USH 3i IPX FKO^; STB PIM^a^ CXA 
UDX iQ|9; BRM QPUT; LDX PACPTR; USH IZ 
ITR PLMSKi XMA PPTR#2; CAB| i:TR PRMSK; ADM PPTR#2 
UDA FK04I XXAi ETR PRMSKj $TA PPTR#2; IDA PACDMBj STA PTEST#2 
LDX PAgPTR^ QIM RSH 3^ IDA QUTABi ISH 15^ BRR STFK 

STFKg im XP8 FiR NEW F0RK 

♦ DELETE PAC ENTRY WHeSE PACT PTR IS GIVEN IN X 
DFK ZR9i STX DFQt; IDA «700000B; BRM QSCH 

# REM9VID FR9M QUEUE |F DISMISSED 

LDA PPTR#2i SKA PRMSK; BRU **2i BRR DFK (EXEC N9T DELETED) 
MIN NF9RK 

# REM9VE PB PUNTER 

UDA PIM4?; RSH 31 ETR ^7; LDX PPB; XXA 
STA PB|2i STX PPB; LDX DFQl; LDA PPTR/E 
MRG PLMSK; CAB; LDA fl; SKA PIM^a; BRU DF06 (iNTt) 
DFOa aXAl LDX UTTY 

* PF9RK IN B# PACT PTR |N A 

SKE TTYA8G121 BRU ♦+2; STB TTYASG# 2 (PRaPAGATE RUB9UT »UPM 

# PUT PF9RK IN X# PD9WN(PF9RK) IN A 

CBX; LDA PPTRi2; RSH 12; SKE DFQi; BRU DF02 
< C9PY XB#AX; LE>A PQU#2; SKA PRMSK; BRU DF03 
» LAST iF9RK 9N PD9WN T9 BE CLEARED* PUT PF9RK IN X, PACT PTR IN B 
^XB; LDA PPTR#2; ETR PRMSK; STA PPTR^2; C9PY BXiBA 

♦ PUT PACT ENTRY eN FPLST 

DFO^ ADD fPPTR; XMA FPLST; STA PPTR#2; BRR DFK 

♦ M9VE PD9WN 9VER 

DF03 C9PY BX#B (NEW PD9WN IN A#PF0RK JN X); LCY 12 

XMA PPTR#2; ETR PRMSK; ADM PPTR#2 
OFOi LDX DFOi; CXA; BRU DF04 

♦ SEARCH PPAR THEN REM9VE 

DF02 CAX; LDA PQU#2; MRG PLMSK; SKE DFOI; BRU DF02 



(:©PY X8*AXi UDA PQU/2; ETR PRMSK; CBX 
XMA PQU#2i ETR Pi,MSK^ ADM PQUiBi BRU DF05 
IP V5 

# RIMIVi INTERRUPT rR9M ?{J. 

DFOe EdR PIMiaj STA P|M|2| LDX PU^f'TR 

DF09 CXAj SKE iPUBPTRl BRU DF07| LDX DFOli UDA PPTR,2 

MRO PLMSK; BRU DF08 
0F07 IDX 0/8; IDA 3i2l ETR *77Bl SKE UTTYi BRU DF09 

^DA liZi SKE DFOlOj iRU DFQ9 

LDA 3#S| RiH 12i MRG PLMSKj SKE OFOil 6RU DF09 

LDA PUDEAD; STA 1/2; BRU DF09 
DFOIO 7 PUTIM 

ENPF 
DFOi ZR9 

# SEARCH SUBSIDIARY F8RK STRUCTURE F0R SPECIFIED FORK 

# SKIP IF PRESENT, m SKIP IF TERMINATED 

SHFK gmi IDA PPTR#2i SKA PlMSKj m\J t + Si BRR SHFK; RSH 12 
SHFOl CAX; IDA PTAB/2; E9R SSOU SKA ADMSKj BRU *+3 

MIN SHFK; BRR SHFK 

LPA PQy#2; SKA PRMSK; BRU •+2; BRR SHFK; MRG PLMSK; BRU SHFOl 

# SCAN raRK STRUCTURE AND 8PERATE 

# At 0PERATI8N 

# Xi PAC^TR 

# THE ePERAT|8N SPECt BY A IS CALLED WITH CORRECT PACPTR IN X 

# PERFdRMS 8P F9R ALL L8WER AND PARALLEL FQRKSt 
SCFK ZR8; STA SCFOi; STB SCF02; STX SCF03 

« SCAN T0 L8CAL ♦BQTTanr 
SCF06 SKN PPTR#2; BHiJ $QF07 

LDA PPTR^a; RSH XZi CAX; BRU SCF06 
SCF07 CXA; SKE SCF03; BRU SCF05 ' ' • ' 

# PIRFdRM 0P AND EXIT 

BRM* SCFOI; LPB SCF02; LDX SCF03; BRR SCFK 
SCFOi LDA PQU#2; SKA PRHSK; BRU SCF08 '• ■ - 

# PIRFQRM QP AND QO »UP' 

LDA PPTR|2; MRG PLMSK; STA SCFO#; iRM# SCFOI; LDX SCFO#; BRU SCF07 

# PERF9RM 8P AND Q8 tpARALLEL' 

$CFC?8 MRG PLMSK; STA SCFQ#; BRM» SCFOI; LDX SCF04; BRU SCF06 
SCFOI ZR8 8PERATI8N 
SCFOa ZR8 STATU! W8RD 



SC^Q3 2R8 PACPTR 

# 

# TIRMINATE F8RK STRUCTURE 

# INPUT! XiPACPTR 6F U9WER FeRK 

TFK ZR9| LDA PPTR#2i STA TFOll IDA PTABiHl STA TF06 

LDA iDFKl 6RM SCFKj LDA TFQli STX TFOlJ SKA PRMSK; BRU TF02 

# EXCC TtP-lEVEU PANIC 

LDA PACDMBl STA PTi:ST#8; SKN XPBl BRM MQNCR 

UDX XPii IDA EXECl6i4 : 

§TA PX#2 (§AVE STATUS)! UDX TFOl . 

UDA TFCOli XMA PIm2i $TA TFC02 

LDA PQy#2; ETR *47777777Bl STA PQU/2^ BRU TF09 
« ORDINARY PANIC 
TF02 MR6 PIHSK; C9PY AX|AB; IDA PIM|H| RSH 3; ETR 'It STA TF07 

CXBJ UDA PTEST#2! E8R »700000B 

SKA f7700000B; BRU TF03 

# DISMISSED eN ACT» C8NDi 7 

CAXi BRU *m2 

|RU TF03 (ACTIVE); BRU TFO# (BRSSUi BRU TF05 (BRS 106) 
IRU TFOa {PERF9RMING EXEC BRS); BRU TF04 (BRS 109) 
©RU 1X0^ (BRS 9) " ; 

# CAUiE INTERRUPT IF ARMED 

TFOl LDA i^OOOOOB; CBXi BRM IIRj N8Pi BRR TFK : 

# D|SMI$SED F8R BRS 106 
TFOB CBXl M|N PL#a 

# PERF8RMIN(3 EXEC BRS 

TF08 LDA PACDMB; CBX| STA PTEST,2l MJN PL^2 

LDA TF06I ETR ADMSK; STA PA#2; LDA SCFQ2 

SKN XPB; BRM M8NCR 

LDX TF07I STA PX#2ii C8X 
TF09 CXAj STX TF06; LPX »0I8; BRM QPUTJ LDX TF06i BRR TFK 

# DISMISSED ON BRS 31 8R BRS 109 

JFQk CBX; LDA TF06; E9R PA/2j SKA ADMSKi BRU TFQ3i BRU TF08 ' 

TFOl ^R8 

TF06 IRQ PANIC TABLE ADDRESS 

TF07 ^R8 F9RK NUMBER F8R HIQHER F8RK 

TFcoi me ExtcPik 

TFC02 ZR8 PL BEF8RE IT BECAME EXECP#<^ 



« 

♦ READ 

♦ INPUT 
RFK 

RF12 



FeRK STATUS 

; 8«STATUS# XpPACFTR QF F8RK Td 
|R0l IDA PQU#2^ EeR X6^ SKA XSi 
tDA PPlRsZi MRG PIMSK; CAX ' 
IDA fRFO^J BRM SCFKj LDX SCP'OS/ 
IDS SCF02i LDX SCF03; BRR RFK 



BE READ 
BRU RF12 

BRM CHRLi BRU »-2 



* INPUT 
RF06 



RFiO 
RF07 

RFU 



RF08 
RF13 

RFH 
RFi5 



I X 

zm 

ITX 
©RM 
IDA 
CXA 
LDB 
LDA 
LOA 
IDA 
MRG 
IDA 
LDA 
CXA 



i-2 ' ^,-- . 
CXA; BRli RFU (EXEC 
(T8Pf.LEVEL EXEC) 



LDX 
ETR 
IDX 
gRM 
RF09 i^DA 

IDX 

IDA 
RF16 OJA 
IDA 

IRQ 

im 
zm 

ZR9 

IDA 



pPACPTR 8F L8WER 8R PARAILEI FQRKt 

RF08; UDX U9i^ LDX RL3#2l CLAB 

SWAP^ BRU ♦•! (HANG); BRM UA^ELi LDX RF08 

PLi2j ska X4I BRU ^^2i IDA SBRSRT; STA Rfii^ 
i E9R SCF03J SKA ADMSK; BRU RFIO 

SCF02I SKB X4; BRU *+2| BRU RFQ? 

PT|ST#2| 108 *»il SKE PACDMBi IDB 

PQU#2l E9R X61 SKA X6; BRU *^di 

PPlHiBi SKA PRMSK; BRU »*2; CXA 

PIMSK; STA RF13; STB FKO'^ ^ 

P|M#2; RSH 3; ETR m7 f §TA RF15 ' ^ 

PTAB#2; ETR ADMSK; MRG X4; STA RFOS 
; ADD RFCOl; STA RF09; STA RFU 

RF08; ETR «3<>000B; URSN U; MUL i3 

RF13; IDA R11j2; LDX RL2i2; XXB; RCY 

b77B; CLB; RCY 0#2; UCY 18 

jeBl IDX Rt3#2i BRM SWAPI BRU *»i (PANIC 

UAifL; UDA RFl^fi STA# RF08; MIN RFQSl IDX 
'^WWi^i STA# RF08; MIN RFOS; |AX |#2; CX8 

RFHi LDA PBj2; $TA* RFOS; MIN RFO$ 

PX#2; STA» RF08; MIN RF08; CBX 

Plkitl STA# RF03; MIN RFQ8; BRX *»3 

FKO^; STA* RF08; BRR RF06 



BRS) 



18; LCY 0/2 

TABLE PAGE AND T,S ) 



1 



PB 
PL4/2 



POINTER ©F FaRK T9 READ 



# BR$ 9 START SUBSIDIARY FSRK 



# INPUT! SSOlsAfBITS * PANIC TABLE ADDRESS 

# BITS? 0«SYSTEM, J.PANIC TABLE RtL^i 2«PR9Pt RUB0UT 

# 3«FIXED MEM8RY# <^*L8CAL MEMSRYj 5«SUBSYSTEM STATUS 
PKST ETR f3777B; ADD »i6ji SKA »#0OOBi BRM TRAPS (PANIC TABLE 8VERLAP) 

LDA SSOl^ 3RH SHFKi BRU ^^^Zi BRM TRAPB (TRIED TO RESTART SAME F8RK) 

UDA NFSRK; SKG fO; BRM TRAPB 

BRM GFK; BRU FKSTW (DISMISS UNTIL PACT SLeT FREEU BRM STFK 

|^D3 SSOU SKB X#J SKN PQU#2/ BRU **2* MRG Xifl LDX FKO^J STA PGU#2 

ETR X4| STA FK09A 

LDA PIM#2i SKB i^OOOOOOBl MR(3 X4| STA PIM/2 

CBA; ETR ADMSKj LPSH 15; LDA jeBl LSH 15 

SKB «2000000Bl MRS X4; SKB ilDOOOOOB; SKN EXECl 

iRU •'•'^i MRQ Xii MRQ Xli STA PTAB# 2 

$KN FKOSA^ BRU •t2| BRU fKQlBi SKA X2l BRU **3 

LDA X2j BRU #+2; LDA X6; STA FK09A 

# PROPAGATE TTYASa DOWN IF CALLED FQR 
FK07B LDA UTTYi SKG «*1; BRU FK07A 

CAX; LDA FKO^i SKB Xl^ STA TTYASGi2 
rK07A LDX PACPTRl LDA SSOU SKA X2| ©RU FKQS 
UDA RLl^a^ LDB RL,2|2 

LDX FK09Aj BRH SCRL; BRU FKOSBl LDX PACPTR 
LDA RLU2J LDB RL2j2 

# ST^RE RELABELLING! INITIAL A#8/X/L 

FK09 LDX FK04I STA RL1#2; STB RL2i2i LDX SSOl 

LDA 2#6l LDB 3#6l LDX STFK2I STA PB#2i STB PX/g 

LDX SSOU LDA f-l; STA 6j6 (SET STATUS WD Id RUNNING) 

LD8 i#6; LDA 0i6l ETR »50037777B| SKN 0; BRU *+2l MRG X4 

LDX FK04; STA PL#H| STB PA,2i LDX PACPTR 

SKN EXECli BRU *+2; BRU P8PX^ LDB f700006B; BRU P9PST 

# PICK UP RELABELLING FRdM PANIC TABLE 
FKOa QAX^ LDA 4#6J LDB 5#6l LDX FK09A 

BRM SCRLl BRU FKOSBi LDX SSOJi LDA 4#6i LDB 5/6; BRU FK09 
FK08B LDX FK04I BRM DFKi BRM TRAPS 

# DISMISS UNTIL PACT SL9T IS RELEASED 
FKSTW LDB *FPLST; BRU IBQDMS 

FK09A ^R9 ST0RA6E FdR RELABELLING STATUS 
# 

# 8RS 31 

# WAIT F9R SPECIFIED F8RK IQ TERMINATE 



# INPyTj A«PANIC TABLE ADDR. 

# eUTPUTj XfSTATUS 

FKWT iRM SHFKi |RU FKOli UDB §70000281 8RU P6PST 

# READ STATUS 9P SPECIFIED Ffl^K " 

FKRD iRM SHFKi iRU FKOU UPB »»U BRM RFK 
FKOl IDX SSOn IDA $s^i STA SS03J BRU PBPX 

# 8RS 32 TERMINATE SPECIFIED F8RK 

FKTM ^RM SHFKi iRU FKOli LD8 =»1; BRM RFKi BRM TFK; BRU FKCl 
♦ 

# BRS 106 

» NAIT F9R ANY FORK T8 TERMINATE 

FKWA SKN PPTRia; BRU P0PX| UDB §7000036; BRU P8PST 

# BRS 108 TERMINATE Alt SUBSIDIARY F9RKS 
FKTA $m PPTR#2; BRU PdPX; UDB iFK02 
FK03 STB FKO#i WDA PPTR#2| RSH 12 

FK05 MRQ PLMSK; CAXj IDB »-ll BRM# FKQ4 

LOA PQU#2i SKA PRMSKJ BRU FK05| BRU PdPX 
FK02 ZRdi BRM RFK; BRM TFK; BRR FK02 

# BRS 107 RE;AD status 9F ALU SUBSIDIARY peRKS 
FKRA SKN PPtR#2; BRU PdPX} UDB »RFKi gRU FK03 
FKO# ZR9 

# PRSiRAMMED INTERRUPT L^OlIC 

# 

# BRS #9 READ INTRRUPTS 

SR|R UDA PIM#2; ETR i37777000Bl UDX $S03J BRU )(PQP 

# BRS 79 CAUSE INTERRUPT 

# INPUT? AilNTf Ndt 

|F V5 
S||R SKG flOl SKG »#| BRM TRAPB; CAX 

e:usf I 

SIIR SKG i20; SKG *m BRM TRAPB| CAX 
ENDF 

UDA i<^0OO000B; RSH 0#2f UPX PACPTR; BRM §IR; BRU PQPXf BRU PQPX 

# 

# BRS 78 ARM INTERRPUTS 

IF V5 
SAIR ETR f3777000B; SKN PQUi2; ETR f3776000B 



XMA PIM#il ETR !i7#00Q7778i ADM >|M,2| IRU P9PX 
IISF i 
SAIR ilk 137777778; STA P|Mj2| BRU P8PX 
|NDF 

« 

IF V5 

# 8RS Sl-^ia INTERRUPT AFTIR A SPECIFICD TlMf. 

* INPUTI AiMAiKf iiTIME IN M$, ^.INTERRUPT N0. 

» PU ENTRY? 2i5iR|At.# 3|2| 0»HiPACPTRi 12«pl7sINTi NQt 
TIMINT ITR i3777000iJ SKN PQU#2; ETR i3776000B; MRG il 
XMA PIM#24 STA TIMIN4; ETR •74000777BJ ADM PIM#2 
LDA 9f^l iKA PIM#8J BRU TIM|N3 

QBAl MUL «i72702<^B (CONVERT MSECt T8 C19CK TICKS) 
1KB X4^/ ADD ill ADD REAL; QBPi AX#B; LDA SS03 
ITR i37Bl SKQ ilOJ SKQ «^i BRM TRAPBl IRSH 6 
LDA PACPTR; LSH I2j MRQ UTTYl CaPY AX#XBl IDA TIMIN2 
DIR; BRM EPU; BRU PQPX 
TIMIN3 LDA TIMIN4I $TA P|M#g| BRM TRAPS 

TIMING im 
nmm i putim 
endbrs sss 

Indf 

END 



7/Q2/67 

SDBMA 

DTS#DTCjDTW#OST 

PIW,D9W#LSMiSSM 

SSMFA#CBRFA#$W§FA/DRMS|^DRMSe 

DFDLA^DFERAiDFRXAjDFCDA 

0RM8PNi0ClS4iDTD#DTX 
MOBG) 

INTRY iMIFIl|SMiAjSf1DRN#F8WRD#SH8FIL 
INTRY 8Xa#8BP#iF^j8INiB!C#iDN#iDC^iIP#ilA 



IDENT 

# ENTRY P9INTS 

ENTRY 
INTRY 
INTRY 
INTRY 
ENTRY 
ENTRY 

♦ ENTRlls ^FR8H 



IDINTI 
IDENTi 

OMSK 

DADMSK 



iRM I DM 
IRM I0H2 
IF C181 
DATA 37777777B 

ENOF 

DATA NDISCS*32#6^»l;#DlSC ADDRESS MASK# RIGHT SHIFTED a. 



# fDRH8PN'/»DRMClSi il/13/65 



# THESE 8EU8NQ T9 'MeNQPNf AND 'HQNClS'j AND 8PEN AND 

* CLQSE DRUM FIUES 

# 

DRMIPN IRQi UPB Xii LPA SSOlJ ETR DADMSK; SKE »0i BRU **2 

8RU D8PN7*lj STA D8PN5I UDX i«NF|lE*3 
DtPN6 SK3 EFA#2; BRU D9PN7; IDA EFA#2| ETR DADMSK; SKE D0PN5 

iRU D8PN7i UDA 8UT8IT; SKA DEV; BRU D8PN3C 

SKA FD|2; BRU 08PN3C 
DfPN7 8RX D8PN6i IDX BUFF 

UDA DEVI SKN SiOU 8RU D8PNtl MR£i DR8BIT1 STA DEV 
D0PN2 EQU * 

JF VH; ska 8UT8IT; SKN SD8M8; BRU ^^Zi BRU D8PN3D; ENDF 

LDA spi; STA B|C#2; iTA BDC^^i STA BDN|2 

C8PY XA18; STB BIN|2; ADD iBX8j STA BIP#2 

LDA SSQI; 



IF VE; ETR DADHSK^ EISF H ETR PRMSKI INDF 

SK3 fOi IRU 0©PN%J BRM BSET 

UDA SSOll IF V2; ISH 2; ELSF 1; LSM 8; ENDF; STA BIA/2i CAB 

LDA T; ADD *8X9; IDX pNDXWR; BRM DTC 

IDA FFUST; STA FILE; BRM DTFl IDA X2; ADM DEVi IDX BUFF 
DQPNl i^DA SSQii STA SS03 

IF V2; ETR DADMSKI ELSF I; ETR PRMSKi ENDF 

ITA T 

tDA DEVi SKA "21000008; BRR DRMSPNl SKR BIP#2; BRR DRM0PN 

IF V2 
0tPN4 BRM DTAl STA BIA#2i RSN 2; STA SSOl 

IISF X 
mPm BRM DTR; BRM DTAl STA BIA#2J RSN 8^ STA SSOl 

ENDF 

IrM DT^I STB BFP#2; §TB 8BP#2i BRU DSPNl 
D0PN3B MIN DRMePN; BRR DRMQPN 
D0PN3C i,DA fl; BRU D8PN3B 
D©PN3D UDA --S; BRU DaPN}3B 

D^PNB im 

# 

DCIS# UDA FIUEl SKE SMIFJUl BRU DCUS2 
UDA wmXi STA SMIFIUI STA SMDFIU 
DCUS2 LOX BUFFi BRM iSETj BRM DTg; BRU DCUS3 
# 

* »UAS»|t|AS» 10/18/65 

* THIS R6UTINE IMPUEMENTS THE L8AD AND ST9RE T8 SEC9NDARY MEM0RY. 

* P9P 146 

USM UDA# Oi SKN SMIFIlj BRU ♦*2; BRM NTRPB 

STB ^S02J STX SS03| SKA X2| ADD SS03 

^TR tJ7777777B; RSN 23J DIV iNDDWi SKE* SMORN; BRU DTGS 

CBXi UDA# SMBA; UDB SS02i UDX SS03 

3KN TIMEl BRR 0; BRU NXP0P 
« 

» P8P H7 
SSM STA SSQlj UDA# Ol SKN SMdFIUl BRU **2l BRM NTRPB 

§TB SS02; STX SS03I SKA X2j ADD §803 

|:TR »17777777B; RSN 23; DIV iNDDW; SKE* SMDRN; BRU DTGS 



CBX; LPA SSCi; STA* SMBA^ UDX SMBA; MIN ^DC^ZiZ 
UDi SS02; t^DX SS03J SKN TIHEI ^RR 0; BRU NXP9P 

« 

* »PPU* 3/20/66 

* DRUM 1/9 EXIT T9 PHANT8M USER 
» 

DFU ZRQ; lOA FILE^ RSH 12; LDA PACPTR; RSH 12 

IDA DPUil ETR ADMSKj LDX UTTYj DIR; BRM EPU 

i,DX flltt UDA iDBBi ADM FD,i»2 

lOX DTXS2i LDA »lOOOOOBj ADM 2,2 

BRM DTFF; BRU NI9DMS 
# 

# »PRMS|f|»DRMS9» 12/7/6^ 
# 

# SEQUENTIAL 1/9 DRIVERi CALLiD FR9M fQPWf 
♦ 

ORMSI ZR9; LDX BIP#2^ LDA 1#2; SKQ ^Qi BRU DSU 

LDX BUFFi MIN BIPj2; LDA* BIP#2 

IF yZi ETR ««7777777B; CAB 

IF C181 

LSM 2; LDA T; ADD wZl LDX iNDDl*l*J 

ELSF I 

LDA T; ADD -U LDX «NDDW*1 

ENDF 

BRM PTC; LPX BUFFI CXAI ADO i2| STA 0#2 

ILSF U ETR «7777#00Bi CAB 

LDA li ADD i2i LDX iNDDWi BRM DTC 

LDX BUFF; CXA; ADO »2; STA 0#2; STA U2 

LDA* B|P#2; CABi ETR «377B 

SKB Xi; MRQ E9RBIT; ADM ItZ} ENPFl BRM DTFi BRR DRMSI 
Dill LDX BUFFi EAX 2^2; STX •2#2J STX -l/l 

LDA E;8FBIT; ADM •Ij2; LDX FILEi LDA XN2; ADM FD#2; BRR DRMSI 
# 
DRMS9 IRQi BRM DTD 

LDA BIP#2; BRM DTT; MIN 3IPa2 

C3A; BRM OTA 

IF C181 



♦pTP'i 'DTH'i «PTFf J fpTC'i 'DTW» j »pTX» # 'OTS ' i 'DIM • , f DTD ' i 'DTT' 
»DTAt#»PT8»# 'DTE! J ipTNt* tDTU»# tPTZ'i «DTR»#?DTLt 
1/21/66 

GEN|RALIY USEFUU DRUM R8UTINES 
IR^i* TE^^PQRARY BIP 

LIST AND IQCK MEMORY BL8CK 



Xi 



DTC 



DPT 
DTC 



(ST9RE DISC ADDRESS) 



LR§H 2 
ENPF 

MRG Xli STA* BJP#2i BRM DTFj BRR DRMS© 
* 

# 

« 

DTLSl 

« 

ENTER C0MMAND IN 
Ai A8^ C8R£ ADDR 
B» DRUM ADDR 
waRD C9UNT 

IF V2 

ZRD; M|N DTXSii STB* EPCU 

RCM 20#B (CAB#CXA)i L.PX EPCl 

iKB X#J MRG X4| $TA 2/2 

CBAI ETR «177777B; STA U2 

STX DTXS2i LRSN Ui ETR i37B 

XXAJ M|N RMC#2i CAX; IDA 0^2 (INREMENT PAGE L9CK) 

(C9MPgT£ ARM MdTieN AND SET NEW ARM P8iITI9N) 

LRSH 13; RCH #Q1B CCAX#CLA); LSH 6i XMA DPT#2 

SUB DPT#2; SKG «»lj QNAi APM ARM9T 

(GUESS AT TIME T9 FINISH 1/9) 

CAB; IDA «2; SKB ^^li ADO «10 

UDX DTXS2; CUBl l,SN 18; ADM 2/2 

CXAl ADD *3; SKE »DRQUJ 8RU »+2 

UDA iDRQl STA EDCL; IDA fNDRQ»3; SUB DTXSl 

SKG NPCll BRU *^li BRR DTC 

BSS NDISCS 

ILSF I 

|R9; M|N OTXSlJ STX* EDCL; LDX EPCU; STA l,2i STB 

I^DA fDCDIi STA 3#2; §TX DTXSg; LPA »OCTXj ADM 0/2 

LDA 1#2; RSH U; ETR 537B; cePY XB#AX; MIN RMC#2 

CBA; ADD «4; SKE «DROU; BRU ♦*2; IDA «DRQ (WRAP AR8UND DRUM QUEUE) 
EDCU; IDA «NDRQ-2; SUB DTXSl; SKG NDCL; BRU ♦-!; BRR DTC 



(ST8RE 
(ST9RE 



WeRD 
REAL 



ceuNT) 

C9RE ADDRESS) 



2f 2 



STA 



ENOF 
DTW IRdi MRG DCwBlTj BRM DTCi BRR DTW 

# DRUM START FOR FIUE QFERATieN^ 

|F V2 
DTF iRQi IDS FIlEi USH #0; LDX DTXSa 

ADH X*Zi IDA «100000B; MRG 2,2t STA 2/2; BRM DTSi BRR DTF 

ILSF 1 
DTF IH^t IDB FILE; LSH 30; MRQ *i; LDX DTXS2; ADM 3/2 

I^DA DTXSt; APD iU STA FTIME; BRM DTS; BRR DTF 

ENDF 
OTFF iR9i BRM DTF; LDX FILE; LDA X2i ADM FD/2; BRR DTFF 

# DRUM START AND EXIT 

DTX SKN DTXSJ; BRU DTXl; SKR 0; mP} BRU NP8PX 

DTXl BRM DTFF; BRU NFIBDS 

« 

# START DISC AND WAIT 

DiT IRQ; LDA DRUERR; STA DSTE; BRM DTS; SKN IDCLii BRU **1 

LDA DRUERf^; SKE DSTEi MIN DST; BRR DST 
D^TE IRQ 
# 

# DRUM START 

DTS IRQ; LDA DTXSl; SKA X4; BRU DTSli ADD nXi DIR; XMA NDCL; ADM NDCL 

EIRl SKE *«U &RU DTSl 

iKN IDCLl; BRU DTSi; LDB *i; SKA BLK31 

BRU *»l; STB BLK:31; LDA IDENTl; STA 313 

LDA IDENT2; STA 33B; MiN IDMRET; BRM IDM 
DTSl BRM DTP; BRR DTS 

# ELIMINATE BL9CK IN SEQ* ©UTPUT FILE 

DTM ^Re; STX DTCi LDA BUFF; ADD •23500Q00B+BX8+NDXW-2 

STA DTM2; ADD s6200000B»35Q000C8; STA QTMl 

C8PY BA/B; SUB DTC; ADM 0TM2; CAX 
DTM3 STX DTW; CXA; ADD DTC; AXC; XMA 0# 2 

IF QXBl 

LSN 2 

ENDF 

iRM DTE; LDX DTW; BRX DTM3 

LDA DTC; SUB BUFF; SUB »BXe't"NDXW»2; AXC 
DTMl XMA BX8fNDXW»2j2 
DTM2 STA BX84NDXW»2#2; CLA; BRX DTMl 



«2 



STA* BIP#2 



LDX BUFT; MIN SIC#2,; BRR DIM 
* DUMP PUFFER F9R SEQi FltE (UIKE DT8) 
DTD ZRa; SKN BDC^Si BRU DTD3 
DTDS CXAI ADD «2; STA 0|2; BRR DTD 
DTD3 LDA* B|Pi2i SKG Xl; BRU DTDl 

i^DA BX9+NDXWC»3#2; SKE iQ; BRU DTDIO (INDEX BL9CK FULL) 
DTD2 EQU ♦ 

If V2; IDA* BIP/2J ETR 
LDA 0#2| SUB BUFF; SUB 
IF CiSl 
STA NDDW+2#2 
IL5F 1 
§TA 1#2 
ENDF 

ELSF 1 

LDA# BlPj2i ETR ?7777<f00B; 
SUB BUFFi SUB f2l STA* BIP, 
DT0I MIN B|C#2i BRU DTDS 
«0| 8RU DTD4I IF ipV2j LDA 
BIPig; LDA •li2j LOX BUFF 
DTA 

C181 
2 



ADD Oj2 
2i ENDF 



BIP#2; 

i ENDF 



SUB »3X8»li SKQ BUFF; BRU DTD9 



8RM 
DTDl %Kt 
IDX 
BRM 
IF 

LRSH 
ENDF 

STA* BIP#2| BRU DTD2 (WRITING eN END 8F FILE) 
DTD# IDA XI; LDX BIP#2; CXB 
DTD7 §KA 0#2; BRU DTD6; EAX 1j2; BRU DTD7 
DTD6 BRM DTM; BRU DTD2 (DELETE 8LD RECdRD) 

IF CiSl 
DTDIO CLB; LSH 2; ETR DMSKj BRM pTE 

ELSF \ 
DTDJO BRM DTE 

ENDF 

MIN BIC^2; CLA; STA BX8*NDXWC*3j2 

LDA 8X8+NDXWC»##2; MRG XI; STA BXd*NDXWC'^4# 21 BRM NTRPB 
# INSERT POINTER IN INDEX BLSCK 
DTT ZR8i XXA; ADD f 26200Q00B-fcBX9'^NDXW*i2; STA DTTl 

CXAl SUB BUFF; SUB »BX9*NDXW»3; LDB 0/2; C8PY AX#BA 
DTTl XMA BX8'l-NDXW^2#2; BRX DTTl; LDX BUFF; MIN BIC#2; BRR DTT 



# ACQUIRE (ePTIMAI^) NEW DRUM 819CK 

IF V2 
GPXS EQU gOOOOOOOB 
QITILK im 

IDA vl8g 

lUB si 

ETR fNDlSCS»l 

hUt, iNPDS#32 

DIV fg4 

SUB iTABUEN 

ITA iSSi 

LDA fTABLE'^GBXH 

§TA GBASE 

IDA f i 

RCH a#B 

LRSN 0#2 

LOX G8S1 

SKA* GBASE 

BRU GB2 
QBl CBA 

IRX #*i 

LDA t.TABueN»2 

SUB GB$1 

CAX 

LDA GBASE 

SKE »TABtE*GBX2 

|RR GETBLK 

ADD GBil 

ADD si 

PTA GBASE 

PRU GBl 
GP2 XMA» GBASE 

STX GBSl 

ITR* GBASE 

RCH 5 

LDX f48 

mo 48 

EaR »GBX2 

ICY Oj2 



ITX QBS2 
IPX QBSl 
STB# gbase: 

LDA GBASE 

ADO GBSi 

iUB fTABLE»TABUEN4.G8X2 

MUl il^ 

CBA 

ADD fS5 

$UB GBS2 

LRSH 23 

DIV 1408 

STB GB^l 

LRSH 23 

DIV iNPas 

RCH 4128 CBA#CAX#CtB 

LSH 5 

ADD wHim/M' 

APM GBSI 

CXA 

LSH U 

ADO GBSI 

ISH 2 

HIN GETBUK 

PRR OETBIK 
GBSi ZR8 
QBS2 2R8 
GBASE ZR9 

OTA ZRai BRM GET8UK; BRM NTRPBj IDX BUFF^ BRR DTA 
♦ INSERT BIT INT8 BIT MAP TB FREE I DISC Bl,eCK 

DTE IR^i STX DTE3; BRM 10CBITI BRM M9NCR; BRU DTEl 

SKA TA8l£:i2; BRM MQNCR; ADM TABtE/2; BRU 0TE2 
DTEl MIN 9tCNT 
DTE2 LDX DT|3; BRR DTE 
DTE3 ZR8 
* 

#UeCATE BIT CaRRESPQNDING Te DISC ADDRESS IN A» 
«Ne SKIP IF BAD ADDRESS <N0 REGS CHANGED)* QNE 
#SK|P IF 0UT 9F CYLINDER (AfGARBAGEJt TWa SKIPS 



«|F ADDRESS OK (AiBlT PeS|T|0NEP# XsNEG INDEX 

*8N TABLEi ©•CUEARED). 

#iA88UT 9Q CYCLES) 

# INPUT? AiPIiC ADDRESS 

* 

t,8C&IT ZR9 

STA ICBIT 

JP* Ci81 

ETR DHSK 

IISF i 

ETR NeTE8R 

ENDF 

SKG fNDISCS*128#6^»i; 3KG ?i*l; BRR L6CBIT 

STA IBSJl ETR ?7760000BJ WL *NP8S*400000Bj XMA UBSl 

ITR il7777Bj SKQ »MAXP + 177B; SKG •MlNP«»li BRU L31; SUB pMINP 

ADD UBSlI URSH gSl DlV "a^l SUB sTABLEN; C9PY BX#B| STA UBSl 

LOA P^OOOOOOOB^ LRSH 0#2| UDX UB^ll MIN L8CBIT 

LBX MIN L8CBIT; BRR L8CBITiLBSl ZR6 



♦ BIT MAP 
UiT EQU * 

RPT TA8UEN.ll DATA .U ENDR 
INT EQU NP8S/2#2#NDI$CS#32 
IWT IQU lWT»i,WT/2^»24 

ir LWT 
LWTl IQU 1 

RPT 24»UWT;UWT1 EQU LWTl#2j ENDR 

DATA »LWTl 

CLSF 11 DATA mil ENDF 
TABLE EQU ♦ 



8UCNT 
imiT 
# 

DTA 
DTAR 
DTA^ 
DTA3 



ZR8^» 
ZR8 

ELSF 
ZR8; 
ZR8; 

ZR8i 
C8PY 



C9UNT aF DATA BLKS 
INPUT T8 18CBIT 



RETURNED FR8M 8UTSIDE CYLINDERt 



1 

ADD nOOOBi IDB «1; BRM DTASi BRR DTA 
SUB "lOOOB; LDB 8-li BRM DTASi BRR DTAR 
STB DTAS3; ETR a37400B; RSH 8 
AX#A#B; STX DTASU SKE FDBTO/2; BRU DTAO 



DTAO 
DTA4 
DTAi 
0TA2 

• ERASE 
DTE 

DTEl 
0TE2 

# WRITE 
DT0 



SKE FPiTUS; BRU DTAi; SKE FDBT2/2i 8RU DTA2 

CXA; add DTAS3i ETR •778# BRU DTA3 

UDB FDiT0#2; IPX «46j N9D 48J E9R X2; 

$JX DTAS2I IDX OTASU STB FDBTO/2 

CXB; LSH ISi ADD DTAS2; ISH 14; ADD NS8A 

SKR* DBA^^B^ mPf LDX BUFF; BRR PTAS 

LDS FDBT1#2j LPX f46; N^D 

§TX DTAS2I LDX DTASXl STB 

tDB FDBT2#2i LDX p46| N60 

STX DTAS2; LDX DTASli STB 

(RELEASE) BL9CK 
2R9i RSN 8; ETR fi7777B; SyB NSBB; CAX; ETR »77BJ 
RSH 6; $KG »23; BRU DTEU SUB §24; EAX 1008#H 
SKG f23i BRU DTEii SUB •24; EAX 100B#2 
LDB FDBT0#2; XXA; RCY ij2; SKA X4; BRU DTE2; MIN* DBAUaB 

X4; LCY XiZt CAX; STB FDBT0#2 

BUFF; BRR pTE 



LCY 2^2 



48; gm X2; LCY 2^2 
FDBTl/g; EAX 24*100B#2; 
48i EeR X2; LCY 2/2 
FDBT2#2; EAX 48*100B#2; 



BRU DTA4 

BRU DTA4 



XXA 



CHANGED 
#^2; BRR DT9 
LDA# BIPi2 



MRQ 
LDX 
ENDF 

9LD DATA BL0CK IF 
^R9; SKN BDC#2| BRy 
LDA f*l; STA BDC#2; 
IF V2 

IF C181 

ETR «7777777B; CAB; LSH 2; LDA T; ADD §2; LDX «NDDW+1 
ELSE I 

ETR S7777777B; CAB; LDA T; ADD »Xi LDX pNDDW+1 
ENDF 

|TR 17777400B; 

ENDF 

BRM DTW; LDX BUFF; BRR DT9 
# WRITE 9LD INDEX BL&CK IF CHANGEp# GET NEW 
DTN ZR9; XMA BIA#2; STA 0TN4; SKN BICj2; BRU DTNl 
DTN2 LDA BIA#2; SKE DTN4; SKG »0; BRU DTN3; CAB 

LDA T; ADO pBX9; LDX »NDXWR; BRM DTC 
DTN3 LDA BUFF; ADD fBX9; LDX BUFF; STA 8IP/2; BRR DTN 
DTNi CAB; LDA T; ADD fBX9; LDX -NDXWR 

BRM DTW; LDX BUFF; LDA »-l; STA BIC#2; BRU DTN2 
DTN4 ZR9 



CAB; LDA T; ADD «2; LDX =NDDW 



» WRITE* RELEASE BUFFER AND EXIT 

DTU IRQ} SKN BDC#2j BRU OTUlj SKN BIC#2; BRU DTU2^ BRR DTU 

OTUi §RM iS^Tj BRM DT8; BRU DTU4 

DTUS gRM ISIT 

OTU# IDA BIA#2^ BRH DTNj BRU OTX 

# ZERO INDEX BU9CK 

DTZ ZR©; IDA BUFFi ADD i23600000B+BXe+NDXW>2^ STA OTZl 

CLBj LDX i»*NDXW+2 
DTZi $TB BXe-^NDXW*2#2l BRX DTZlj UDX BUFFj MIN 8IC#2; BRR DTZ 

|F •V2 
» (3|T P|UED9»RANDeM BIQCK NUMBER 
DTR ZR9; LDA DTRSU ADD *7 i ADD REAL 

ETR »77BJ STA OTRSl; LCY 8; BRR DTR 

INDF 

# ASSIGN NEW DATA BL8CK 

DTL ?R9j STX DTLSli IF V£| 8RM DTA 

ILSF Xi CXAi SUB BUFF^ SKE iBXei BRU DTLl 
LDA X,Zi SKG pO; BRM DTR; BRM DTAR; BRU DTL2 

DTli LDA ^XiZi SKG tOl BRM DTR; BRM DTA 

0TL2 MR3 »377B; ENDF; STA# DTLSl; LDX BUFF; MIN BIC#2; BRR DTL 

« 

# tDRXiep#»DWP#»DW0t to/30/65 

# THESE IMPLEMENT SINGLE«W0RD TRANSFERS T9 RANDdM FILES 

# 

DRXjei IRQi STA SSOl; STB SS02; STX SS03 

LDA* Ol ETR ADMSK; SKG »NFILE»1; BRU **2i BRM NTRP8 

IF FCB 

STA FiLiI AXCl LDB FC#2l LCY 9; ETR i77BJ SKE U8B; BRM NTRP! 

CLSF I 

STA FILE; AXC; LDB FA#2; LCV 9; SKE J68; BRM NTRPB 

INDF 

LDA FD#2; SKA xei BRU I^IE (FILE BUSY) 

ITR fO^OOOOOOBj SKE 1060000006; BRM NTRPB 

LDA SS02; ETR ii7777777B; RSN 23i D|V iNQDW 

LDX FC#2; SKE 8DN#2; BRU DTG; STB T; CXA; ADD T; ADD »2 

BRR DRXiei 
« 

# P0P U4 DISC W8RD INPUT FR8M RANQSM FILE 



D|W IRM DRXl9n CAX; IDA 0^21 LDB SS02I LDX SS03I BRU NXP8P 

♦ P8P U5 DISC W9RD QUTPgi T© RANOaM FILE 

Dew BRM DRXI8U LDX FIUE| lOB FD#aj SKB DR9BITI BRM NTRPg 
i,OX FC#2i MIN BPC#2; CAXj IDA SSQl; STA 0/H 
IDS SSOH^ LDX iS03| BRU NXR9P 

# 

JF ^V2 

» »DBI8'#'DBP#'DB8' 5/20/66 

» 

» THIS R8UTINE IMPLEMENTS THE FAST DBI/DB8 $YSP8PS 

DiTP3 |R8|» C8MMAND BUILDER (DTC 8R OTN) 

OlXSi ZRe;# REC8RD NUMBER 

DPXS2 2R0M W8R0 NUMBER 

DBX33 ZR8;» TEMP8RARY BIP 

# 

DII8 imi STA OiTPii STB PBTP2; STX DiTP3 

LDX SS03I LOA* 01 BRM I9U C8PY AXiBA 

LDB f06000000Bj SKM i06000000Bi BRU TRAP 

SKN DBTPU BRU ♦'♦'3; SKA 0R8BIT; BRU TRAP 
DiXl LDA SSOU SKG «0l BRU DBX2 

LDA SSOa^ LRSH 23; DIV «NDDWi STA DBXSi; STB DBXS2 

dm 5»U BRU DBX3Ai LDA SSOll SKI3 iNPDW-l; BRU DBX3 

LDA DBXSil LRSH 23; DIV fNDXW.2; SKE B|N#2; BRU D8X5 

CBA; ADD BUFF; ADD tiXS; STA DBXS3 

♦ SE:T up NEXT C8MMAN0 

DII9T LDX SS03I LDA 0#6; LPX BUFF 

LDA DBXSl; SKE BDN#2l BRU **H; BRU DBX4 

LDA* DiXS3; SKE iQ; BRU DBTU LDX DBXS3; BRM DTL 
DITl LDA SSOi; gRM DTH; ADD »NDOWt»U ETR f3777B 

IKa iNDDW-2; BRU DBT2; LDB T 
DiT3 LDA* DBXS3; ETR ?7777400B; XAB; LDX «NDDW; BRM* DBTP3 

§KN DBTP2; BRU DBX6; LDX DTXS2 

LDB FILE; LSH 301 MRG »4; ADM 3#2 

♦ UPDATE CENTRAL REGISTERS^ AND LSeP 

DiX6 LDA fNODWj ADM SS02; ADM SS03; CNA; ADM SSOl; MIN DBXSI 
LDX BUFF; MIN DBXS3; LDA SSOi; SKG «NDDW*1; BRU DBXl 
LDA DBXS3; SUB BUFF; SKE *BX8*NDXW»2; BRU DBI8T; BRU DBX^ 



DiX5 

Diia 



# 66 
DPXI 
DBX3A 
P|X<> 



DiTPi 
DlT^a 



SKN DTXSi; BRU DTX| 8RR DBI8 

STA DBXS3^ BRM BSET; IDA DBXS3 

SKN B0Qt2i 8RU DTG4; BRU DTG5 
ACR8SS PA3E B8UNDARY 

LOX SS03I IDA ^000B#6 

IF REUCHN 

CXA; RSH Ui APO *1; ETR «7; MUL »3; CBX 

LDA RRi^ii UDB RRL2J LCY 0#aj RCY 1 

ETR il7400000Bl MRG DRlBITl MRG Tj CABi BRU DBT3 

IISF I 

lOX BUFF 

ENDF 
THRQyGH BUFFER 

l^OA DBXSl 

SKE iDN#2j BRU DIG 

LOA fNDDWi SUB PiX$2| SKG SSQU iRU **2; LDA SSOl 

ITA Tl ADM DBTPll ADM DBTPgl CNAj CAX 

LDA BUFFi ADD DBXS2; LDB SS03; SKN DBTP2i XAB 

ADM DBTPil CBA| ADM 0BTP2 

IDA 0/^ 

iTA Ofif BRX DiTPll IDX ^UFFJ SKN DBTP2J MIN B0C#2 

LDA Tl ADM SS02; ADM SS03| CNA; ADM §S01i BRU DBXl 



Dil PePD 14200000B/|/1#0#| 
DIM ^TA SSOII $TB §S02j STX SS03 

LDA DIMCl; LDB DIMC2i LDX iDTCi 
OlMCi LDA 2#g 
DIMCS STA 0/6 
# 

Di8 P9PD 14300000P#l/l#0il 
D^M STA SSOi; STB SSQ2I STX SSQS 

LDA DeMCU LDB D9MC2i LDX fDTW^ 
D0MCI LDA 0#6 
DtMC2 STA 2#2 



BRM DBI8i BRU P8PX 



PRM DBiei BRU P8PX 



ENDF 



# 
# 

♦ »PTG' iO/30/65 

• 

♦ THIS RELEASES THE CURRENT C8NTENTS 9F A DRUM BUFFER AND LdADS 

# IT WITH A SPECIFIED DATA 818CK 
* 

DTE5S LDX ^Minii LDX FCi2 

DTQ STA DTC; CXA| ETR ADMSK; STA BUFF; BRM BSET 

|KN BDC/2; BRU DTG4 

UDA DTC; RSH 23; DIV »NDXW«2j| SKE BIN^S; BRU DTQ5 

# PeN^T NEED NEW INDEX B16CK 

LDA PTCi STA BDN|2| C8A; ADD BUFF; ADO »8X^; ETR ADMSK; STA BIP^2 
CAX; IDA 0i2; SKG fO; BRU DTG6 

* DATA BU8CK ALREADY EXISTS 

IF V2 

ITR «7777777B; CAB; UDX ?NDDW+l; LDA T; ADD »1 

IISF 1 

ITR §77774006; CAB; LDX »NODW; LQA T; ADD ?2 

INOF 

BRM DTC; BRU DTX 

# N8 SUCH DATA 3L9CK# CREATE A 0680 9NE 
DTG6 BRM DTL; MIN BDC#2 

C8PY Xki^i ADO *2360Q002B'^NDDW; STA DTG6C; LDX «-^NDDW 
DTC36C STB NDQW4»2i2; BRX DTG6C; BRU DTX 

# WRITE 0UD DATA BL8CK 
DTG4 BRM DT8; BRU DTX 

♦ FETCH INDEX 8I.8CK 

DT05 LOB fl; STB BDN#2; SKG 8IN/2; BRU DTG5A 

MIN iIN#2; LDA BFPf2j SKG tO; BRU DTG7 
DTG8 iRM DTN; BRU DTX 

♦ m 8ACKWARD1 N8T F9RWARP 

DTQiA LOA BBP#2; SKR BIN|2; SKE -O; BRU DTG8 

♦ CREATE NEW |NOEX BL8CK 

IF V2 

BRM OTA 

ELSF i 

LDA BIA#2; SUB f^OOB; BRM DTAR 

ENOF 



gTA BBP#2i BRU DTG7A 
DTG7 IQU » 

BRM DTAJ STA BFP#2 
DTQ7A ITA DTAj HIN B|C|24 

UDA DTAl XHA B|A#2| 



LDA 
iTA 



BtCiZi 



BRH 
8RM 



OTN 
DPU 



DTG78 
DTGI 

# 

* BRS 5a 



CUAB; XMA 8BP/2; SKE BlA#2j BRU DTQ7B 
i,OA BIC#2J STA BFP|2| BRU DTG3 
§T8 8FP#2j UDA BICj2i STA BBP^2 
BRM Olll BRU NPUG8 



10/11/65 



THIS CAUSES A RAND6H FILE Te BE DECLARED AS SEC&NDARY MEMORY 



SSHFA 



5RH leU CBAl UDB 1O6OOOOOOBI SKM f0600000GBl BRM NTRPB 

|TX $M|FIl4 SKB DR8BITI BRU **Zi STX SMaFIt 

LDA BUFFi ADO f20000Q02Bj STA SMBA 

UDA BUFFj ADD «BDNj ETR ADMSK; STA SMDRNi BRU NP8PX 



»SWSF» 
BRS 82 



« 
# 
* 
* 

# 

SWSFA 



10/31/65 



THIS 
0R 



CHANGES 
9UTPUT 



THE M8DE eF A SEQUENTIAL FJLE T9 INPUT 



BRM NTRPB 



SWSFl 
# MAKE 

SWSF2 
SWSF9 



iRM ISfl SKB DRMBITJ SKB DRXBlTl 

LDA SSOai SKE fOl BRU SWSFl 

CBAl ETR •(NeT)lOOOOOBJ STA fD^2i BRU NPQPX 

SKB DReBIT; BRM NTRPB 

SURE THE FILE IS ePENED ONLY 9NCE 

STB D9PN5I LOA FA#2; STA SWSF3; LDX if.NFILE43; STX Ti LDB DADMSK 

LDA EFA#2; SKA Xi; BRU SWSF9I SKM SWSF3; BRU SwSF9; MIN T 

BRX SWIF^i LOA Tl SKE i^NFlLE-i'S-Kl; BRM NTRPB 

LDX BUrFj LDA OePNS; MRG 0UTBIT; STA FD/2; BRU NP8PX 

im X-BLSCK ADDRESS. 



SW$F3 

« 

# ♦DFER»# 'DFRX» 



U/11/65 



* THESE 
» BRS 67 

DPERA 



DEWETE AND READ INDIVIDUAl, INDEX BIBCKS 
DELETES A 819CK 8N THE DISC 



SKN SDBM8; BRU #+2; gRM NTRPB; ClBj ETR DADMSK 

ICY 2 

BRM DTI; BRU HPQPX 

87 READ AN INDEX P19CK 
tDA SS03; ETR ADMSK; STA T| ADD »NDXWR; SUB si 
ETR NADMSK; SKE ?0| BRM NTRPBj UDA T 
BRM DTNi IDB SSOU ETR DADMSK 
LSH 2 
UDA T; IPX .NDXWRi BRM DTCj M|N Qi BRU DTX 



♦DFDlt 12/7/65 



# 

* iRS 

DFRXA 



« 

# 



BRS 6^ 

THIS DELETE! 



THE CONTENTS SF A DISC FILE 



iKN SDiMS; BRU ♦*2) BRM NTRP©; BRM 161 
SKB DRMBITl BRU ♦+2; BRM NTRPB; CAX; BRM BSET 
SKN BDC#2; BRM DTU (EXITS)J SKN PICigJ BRM DTU (EXITS) 
LOA f»U STA BDNi2; LDA BFP#2; SKE «0; BRU DFDLl 
qXAi ADD «Bxe+NDXWt»3j BRU DFDL3 
CLABj XMA» BIPi2 
IF C181; LSH 2t ETR DM$K| ENDF 
SKE iOj BRM DTE; LDA BlPi2; SUB »1 
STA 8IP#2; SUB i?BX8.1; SKE BUFF; BRU DFDLP 
LDA 8BP#2; SKE fOl BRU DFDL4; BRU NPePX 
MIN BIN^a; BRM DTNj BRU DTX 
SKR BIN#2; mPl LDA BIA/2; BRM DTE 
LDA BBPi2; BRM DTN 

BRM DPUi CLAI STA BFPj2; BRU NPUQQ 
» 

♦ »DFCD» 3/20/66 

# 

♦ ADD THE NUMBER 9F DATA W9RDS IN FILE (A) TO X 

« 

♦ BRS 1|3 



0FDL2 



DFDL3 

OFDLl 
DFDL^ 



DFCDA 
OFCDa 

DFCD3 



8RM ie|l SKB DRMBIT; BRU **2l BRM NTRPB; BRM DSS 

CXAJ ADD s27600000B+BXQ+NDXW»2^ STA DFCD2; LDX «-N0XW+2 

UDA BX84NDXWp2#2i IF NZi SKE *0; IDA .255 

EUIF 11 ETR »377B/ ENDF; AQM $S03; BRX DFCD2 



LDX BUFFj BRM iSET| 
BRM DTN; MJN BlNjS^ 
CLA; STA BlN/2i IDA 
LDX FILE; LDB rAi2| 
BRM DTNj MIN 0| BRU 



LDA 8FR#2i SKG »0; BRU DFCD3 

BRU DTX 

BBP#2; SKG »QJ BRU NP9PX 

LSH 2^1* ETR DADMSKi USH 2 

OTX 



# 

• »CBRF» i2/7/65 

* THIS DELETES A 8L9CK aF INF0RMATieN FR9M A RAND9M FILE 
« 

» BRS 59 

C8RFA 

CBRF# 



CBRF2 



CiRF3 
CBRFO 
CBRF2A 
CPRFl 



CBRFe 

CIRF5 



» ♦DISR 

* 

♦ THESE 

# 



LDA SSQ3I 
IDA SSOil 
LDX BUFFi 
XABi SKE 
CBA; ADO 
CAXJ APO 
CBAi STX 
STB NDDN* 
ADM SSOll 
CLAJ BRU 
LDA SSOXl 
$KE 8DN#2 
LDA* B|P# 
LDA i*Ji 
MIN BIC#2 
RSH 23j D 
BAC; ADO 
XMA o#^; 

IF •V2 
'#'DDLR» 



BRM laii CBA/ LOi f07000000Bj SKM f0600000CBj BRM NTRPB 

SKG iOl BRU NP0PXi LDA SS02i RSH 23; D|V «NDDW 

XAB; SKG lO^ BRU CBRFl 
BDNj2; BRU DTG; MIN BDCi2 
SSOU SKG iNDDW; BRU ♦♦2; LDA »NDDW 
BUFF; ADD f23600002Bi STA CBRF3 
T; SUB T; C0PY AX#B 
2#2l BRX CBRF3 

CNA; ADM SS02; BRU C8RF4 
CBRF2 

SKG pNDDW'.I; BRU CBRF2A; BAC 
; BRU CBRF5 

21 STi# B|P|2; BRM DTE 
STA BDG#2| §TA BDN#2 
; LDA P^NDDW; BRU CBRFQ 
IV ?NDXW»2; SKE BINi2; BRU DTQ5 
BUFF; ADD ^BXe; AXC 
BRM PTEl BRU CBRF6 



12/7/65 

INSERT AND DELETE LOGICAL RECeRDS IN A SEQUENTIAL FILE 



DISR IRM OS^J 8RM DSZi MJN 0; BRU DS^i 
# 

DDIR 8RM PSSi BRM DgZ^ LOX ^IP#2j CXBl IDA XI 

ODlRi EAX U2l SKA 0#ai BRU DDlRa; BRU DDLRl 

DDLRa BRM DTMi BRU DSX 
« 

* 

♦ SPACE FORWARD 8R BACKWARD J REC9RP 

» 

DSF IHdi CXAi SUB BlP/g; SKE ■•8X9»NDXW4'3; BRU DSFl 

BRM BSETl LDA BFP#2; SKQ sQl BRU DSF2; BRM DTNj BRU DTX 

DIFl HJN BlPiiJ LDA# 8JP#a; SKA Xli 8RR DSF 
SKE lOl 3RU DSF*lJ SKR BIP#2 

DSF8 l^OA ESFilT; MRG X4| MRG FiLEl STA SSOU BRU NP9PX 

« 

D$B ZHQi CXAj SU3 iIP#2i SKE »NDXW+1| BRU DSBl 

PRM BSIT; I^PA B8P#2; BRM DTN| BRU DTX 
DS8I $KR BIP#2| mPi LPA# BIP#2; SKG Xli BRU DSB+U BRR DSB 

# 

ENDF 
DiS IRdi IPX BUFFi LDB PEVi CXAi ADD -f2; STA 0/2 

SKB SUTBITi ADD fNDDWi STA U2i BRR DSS 

IF myz 
# 

OU |R8i LDB OIVI SKB QUTBJT 

DSZI SKR BIP#2i IDA BIP#2i ?UB fBX©i SKG BUFFi BRU DSZ2 

UDA* BIP|2i SKG Xli BRU DSZll BRR OSZ 
DiZ2 UDA BBP#2i SKG lOi BRR DSZ 

LDA iNDXN.gi ADM B|P|2i IDA BBP#2; BRM DTNi BRU PTX 
* 

♦ «DIE9Rt|fpei;8Rt 12/7/65 

# 

» SPACE T9 END 0F RECORD (INPUT) OR WRITE END ©F RECBRD (8UTPUT) 

♦ 8N SEQUENTIAL FILE 

# 

0IE8R LDA fli STA SSQ2i BRU DFSR 
« 

D8I8R BRU TRAP (NOT IMPLEMENTED) 



# »PeE8Ff 3/21/66 

* 

* DELITI REMAINDER 9F FILE 
» 

DeEQF BRM DSSi LDX BIPj2; CLA 
D^EQFl EAX X,Zi SKE 0#2i BRU peEdFl 
L.DB BIP#2j BRM QTHj SRU NP9PX 



♦ »DFiRt#»DBSR' i2/7/65 

# 

« SPACE F8RWARD 9R BACKWARD (B) LdGlCAl, RECORDS 

* 

DFSR LPA 3S02; SKG fO; BRU DBSRj tDX BUFF 

LOA 1#2^ SKA EeRBlTl SKR SS02; BRM DSS 

LDB DEVi SKB 8UTilT^ SKR BIP#2 
DFSRI UDA SS02; SKG lOj SRU DSX; BRM DSFi SKR SS02J BRU DFSRi 
D§X LDB D£V; SKB 9UTBIT; MIN BIP#2; iRU NP9PX 
« 

DBSR IRM DSSI BRM DSZ 

OiSRl LDA SSOil iKG tOj iRU DSX; BRM OSBi SKR SS02I BRU DBSRl 

« 

♦ tC5R|Wt|fOWN0f 12/7/65 

♦ 

♦ REWIND 9R W|NDj THEN SPACE (B) REC9RDS IN 9PP9SITE DIRECTieN 
# 

DREW BRM DSSi UDA BBP#2| SKG fO| BRU DREW| 

UDA i»|l STA BDN#2| IRM BSETl BRU 0TQ5A 
DREWl CXAl ADD »BX0»U SKB eUTBiTi ADD »i; STA BIP#2| iRU DFSR 
« 

DWND BRM DSSi UDA BFP^2| SKG sQi BRU DWND| 

UDA i^li STA BDN#2| BRM BSETl BRU DTQ58 
DWNDl CXAl ADD «8X8-»^NDXW.3i STA BIP#2 

DWNPa UDA* B|P#2i SKE lO; 8RU DWND3 

§KR B|P#aj N9Pi BRU DWND2 
DWND3 MIN BIP/2; BRU DBSR 

ENDF 



IF 



V3 



* iR8 8E*5 

♦ SET DISC BIT MAP 

# INRUTJ SSOltDISC 



ADDRf eF X.BU8CK RIGHT SHIFTED 2 PLACES. 



SD8MA 

$PiM9 
SDBMg 



SDBM3 

SDBM7 



SDiM6 



SDBM^ 

SDBM5 

SPBMU 

SPBM8 

SDBM13 

SPBMIO 



SKN 
SKN 
STB 
PRM 
UDA 
IDA 
©RU 

EeR 

©RU 
LDB 
SRM 



LDA ««rl; STA N8ACT 



SDBMSi BRM NTRPB 

SSQli BRU SDBM9; MiN SDBMSj MIN 0; 

N8VP| UDX SS03I STX ACAl BRU NPePX 

IG^Tj BRM M8NCR; BRM BSET (BUFFER ADDRt IN T) 

BUFF; ADD ig7600000B'fNDXWC*BX8i STA SDBM3 + 1 

SSQll CUB; LSH 2; STA SSOli BRM U8CBIT (FIND X»Bl-8CK 

SDiM5 (INVALID ADDR.); BRU SDBM12 OUTSIDE CYLINDER) 

fU ETR TABLE#2i $KE TABLE#2i BRU **2 



SDiMSi STA TABLE#2 

SSQli IDA Tl ADD «BX8; LDX 

DSTI BRU **2l BRU SDBM# 

REWRITE CLEANED UP XBL8CK 
iKN XCLEANa BRU »^2l BRU SDaMS^l 
LDA BUFFi ADD «BXej STA SDBMJ3 
LDX ■•NDXWR; CLB 

LDA# $D8M13i M|N SPBM13; SKQ XU BRX 
CXAJ SKA ADMSKi BRU »+2; BRU SDBM3»1 
STB* SD8M13; MIN SDBM13; BRX *»2 
LDA T; add »8X9; LD8 SSOU LPX *NDXWR 
BRM DTW; BRM DSTJ BRU *+2; MIN SD4 
LDX s.NDXWC 

|TX SDBMlOi LDA NDXWC4BX8j2 
SKE *0| BRU SDBM6 
LDX SDBMiOl BRX SDBM3 

LDX BUFFi LDA NDXWC+BX8*2# 2i STA SSOl; 
M|N O; BRU SDBMU 
CLB; LSH Zi ETR DMSK^ STA SSQl 



»NDXWR; BRM DTC 



IF SWITCH SET >«1 



# p 3 



SKE »0; BRU SDBM2 



©RM 

E8R 

BRU 

MIN 

MIN 

LDA 

DATA 

|R8 

ZR9 



L8CBJT; BRU $DBM4| BRU SDBM7 
wwXi ETR TABLE/24 SKE TABLE#2j 
SDBM^I STA TABLE#2; BRU SDBM7 
XBERR; BRU SDBMli 
FDERRj BRU SDBMU 
BUFFi BRM BPUT^ BRU NP8PX 
«1 



BRU *+2 



SD*^ im WRITE FAILURES 

ENDF 
ENDDSC ISS 

END 



3|eD IDENT 7/Q2/67 

# ENTRY POINTS 

ENTRY PTAPE 

INTRY TXCi#TXC2#TXSl#T2jrH#CKBUF 

ENTRY FTIME#EDj INTR# I8B^ ieRW# leSWj WBE/ wbuff 

INTRY MTDI#TGET#TREt^TN9#PDSWi 

INTRY BPTEST,NieDM§#NI8GDS|NFI8DS 

ENTRY P8SL1A#P9SU1#P0SU2#RST8UF/DADMSK#RLDMSK 

INTRY I6DM?^ |8QDHS|FieDMS/ACTR#AIRWD 

INTRY 0GET#B$ET#8PUT#UNIT 

INTRY XXjX0^Xl#Xa#X3iX#/X5#X6#X7 

ENTRY XNljXN2#XN3#XN4iXN5#XN6/XN7 

ENTRY QUTBITiCNRBITjDRMBIT 

ENTRY DRXBIT^ORSBIT 

INTRY E8RBIT#E0FBIT#ERRBIT#EeTaiT 

INTRY F|UE#FFLST|FA#FD|FC#FW 

INTRY 0UFF#DEy#D|U#ePNPEV#BUFS#ADIU#EDig 

INTRY iei*SPW/0PWF#ClS#DCLS3iCBF^ieiE 

ENTRY M9N©PN|MaNCLS# I9Hi I0RET#RDU 

ENTRY BLK3i^ INT3li INT33/ WRRL3 

EIRBIT DATA OOIOOOQOB 

E6FBIT DATA 00200000B 

ERRilT DATA 004000001 

E0TBIT DATA OlOOOOOOB 

XX DATA 37777777B 

XO DATA OOOOOOOOB 

XI DATA 10000000BIXN7 EQU XX 

xa DATA 20000000BJXN6 EQU X2 

X3 DATA 300000Q0|;XN5 EQU X3 

X# DATA 40000000BiXN<* EQU X4 

X5 DATA 500000008;XN3 EQU X5 

X6 DATA 60000000B;XN2 EQU X6 

X7 DATA 70000000Q;XN1 EQU X7 

WID8IT DATA iOOOOOOOB 

SIFBIT DATA 00400000B 

CMRBIT DATA IOOOOOOOB 

8UTB!T DATA OOIOOOOOB 

ORMBIT DATA 04000000B 

DRXBIT DATA 020000008 



DRSIIT 


DATA 


OiOOOOOOB 




• FILI 


QSNTReU TABLES 






IF 


FCB 




FA 


DATA 


OiO^O 






lUSF 


1 




FA 


DATA 


7700QOOB#7700000B#770000QB 




ENDF 








@SS f 


slF|LI-3;» INDEX 


BL8CK aR SUBReUTlNE ADDRESS 


$EFA 


IQU 


FA+NFIUE 




$Ifai 


IQU 


FA+NFIUE*! 




FW 


BSS f 


MFIUEl* W8RD BEING PACKED BR UNPACKED 


FD 


^R© f 


MDEVii; BRU NDEV 


*1#U BRU NDEV'^-f 




PSS ? 


MFilE»3;» DEVICE 


NUMBER AND IN0ICAT8RS 




IF 


FCB 




♦ MAKES vJ98 


NUMBER 77B UNAVAIUABLE 


FC 


DATA 


77000008^ 7700000B^ 7700000B 




ILSF 


1 




FC 


IRe; 

ENDF 


zm} zm 






iSS f 


siF|l|»3i» CHAR C0UNT# DRUM BUFFER ADDRESS 


* DEVICI DISPATCHER 




OEV 


im 





U$ED TS HBUD DEVCN] 




68 


GPWN 


PAPER TAPE INPUT 




7B 


QPWN 


PAPER TAPE 9UTPUT 




OB 


TRAP 


WAS CARD INPUT 2/J4/67 




^B 


GPWN 


MAG TAPE INPUT 




78 


GPWN 


MAG TAPE aUTPUT 




iB 


NTRAPn 


CARD PUNCH 




IB 


NTRAP 


CARD PUNCH BINARY 




^48 


QPWSI 


DRUM INPUT 




45B 


QPWS6 


DRUM 9UTPUT 




64B 


NTRAP 


RANDOM DRUM FILE 




5B 


GPWUP#1 


LINE PRINTER 9UTPUT 




OB 


NTRAP 


CARD INPUT 




OB 


NTRAP 


CARD INPUT BINARY 


NPEV 


EQU 


#*DEV 




NNDIV 


|XT 


»NDEV 






^R8 


FTCI#l 


TELETYPE INPUT 




BRU 


FTC9#1 


TELETYPE euTPUT 



ges NUMBER 



IF V8 

im TRAP 

QRU TRAP 

Zm ISTCii SPECIFIED TELETYPE: INPUT 

8RU eSTCil SPECIFIED TELETYPE 8UTPUT 

ENDF 

iRU GPWX 'NOTHINQf 

iR$ aPWies SUBReUTINE FILE 

* BUFFER ADDRESSES 

IF -vi 

BUF EQU 34000B 

RPT NBUFA 

BUF EQU BUF-NDBW 

DATA BUF 

INDR 

IF V2 

BUF i:qu fbadr 

ELSF 1 

BUF EQU DBT9P*S 

INDF 

RPT NBUFX 

DATA BUF 

BUF EGU BUF+NDBW 

ENDR 

IF V2 

8UF EQU *«NBUFX 

ILSF I 

BUF IQU ♦•NBUFA»NBUFX 

INDF 

* BUFFER LENGTHS AND UN|T C8UNTS 
NTAPEi EQU NTAPE#JOOOOOB4.40000B 
NDDWl EQU NDDW*iGO00OO0B 

8UFI DATA 0#RTCNT#PNCNT#0#NTAPE1*TCNT/NTAPE1*TCNT 

DATA CPCNT#CPCNT3iNDDW14NDDWUNDDW1jLPCNT-»CRCNTjCRCNTB 

$EBUFS EQU BUFS+NDEV 

* DRIVER DISPATCHER 

« 0P QBOE IS PU ACTf RaUTINE INDEX 



• H PRaVID^S C9MPUTATI8N 8F ISRWiieSW BY ED» 
SIU ZR0 

3 RTX#1 

3 PNX#1 
TRAP 
Z TRX#1 
Z TWX#1 
^ CPX#1 

4 qpxBa 

Q DRMSI 
DRMS8 
IRQ 

a upx#i 

i CRX#1 

a CRXB#1 

# Bie DRIVER PISPATCHER 

BDEV DATA Oi 8IS#BlSi BIG# B|S# BIS 
DATA TRAP#TRAP 
DATA SBIiSB^iTRAPjBIG 
DATA B|Q#BIQ4BIG#B!QiB|Q#TRAP 

♦ DEVICE»IN»U$E TABLED 

# INTRY SET Te •! WHEN FREE 

DIU BSS i^i DATA ADIU#ADIUj BSS n0EV»6 

APIU BSS NTAPE*NllNK#a 

EDIU EQU ♦ 

$IADIU IQU ADIU»EDIU 

« 

« 

• FILE 9PENINQ DRIVERS 

# 3 ARGUMENT aPNT HACR9 

# A(l); DEVICE ACCESS TIME IN MILUISEC8NPS 

# MZ)l DRIVER ADDRi 

♦ AOn i*EXEC 9NLY ALL6WED T9 QPENt 

♦ MACR9 C9NVERTS A(l) JQ CU^CK TICKS. PUTS RESULT IN dP CSqE FIELD* 

# A(3) IS PUT INT9 BIT 2f 

♦ 2 ARGUMENT 0PNT HACR© 

♦ Ad) J DEVICC ACCESS T|ME 

♦ A(a): iiEXEC 9NLY ALL9WED T9 BPEN, 



ePNT 

SPNDEV 



ePNDEV 



MACRe 

NARG 

IF 

8PNT 

ELSF 

EQU 



{$0PNDEV) 

ENDF 
INDM 



9PNDEV»2 

I 

A(n*6/10C(AND)77B*A(3)*i00B 
A(2) 



iRa 
ePNT 

9PNT 

aPNT 
aPNT 

aPNT 

0PNT 
8PNT 

8PNT 
0PNT 

0PNT 

aPNT 
aPNT 

8PNT 
©PNDEV EQU 



RTWTiO 

PNWTjO 

0#TRAP^O 

TXWTiMTR9PN#i 

TXWTiMTWaPN#l 

CPWTiNTRPBiX 

CPWT#NTRPBj1 

34*DRM0PN/i 

34#DRM8PN#i 

34#NTRPB#1 

UPWT#i.PePN#l 

CRWT#NTRPB#i 

CRWT#NTRPBil 

♦•NDEV 



IF V6 

* «C|Tt 12/1^/66 Vi VAN VtEAR 

* CHARACTER INPUT AND TEST 

* INPUTS CHARACTER T8 TEST IN A 

* ADDRf iFlLE N8. 

* RETURN? N0 SKIP: N© CQHPAREt LEAVE 

* RETURN CHARi |N A 

* SKIPI CaMPARESf TAKE CHAR* 

CIT P9PD i3^00000B4l#l#0#l 
C|T$ $TA SSOli STB SS02; STX §303 

IDA# GET FILE HQ, 

§KA i(NeT)J CK FILE TYPE 



CHAR. IN BUFFER^ AND 
9UT 8F iUFFERt 



CTU 



cTia 



CTI3 



C|T| 



mu 


CITl 




SKE 


iO 


TELETYPE 


©RM 


TRP8 


8UTPUT# N8T VALID 


LD8 


ilQX-l 




$TB 


QPW 


SET RETURN 


UDX 


UTTY 




LDA 


TJS2#2 


CK CHAR CaUNT 


SKQ 


iO 




iRU 


CTI3 


Na INPUT CHARS IN BUFF 


UDX 


TIS5i2 




EAX 


1#2 


|NC» INPUT BUFF PTR T8 GET CHAR 


IPB 


0#2 


GET CHAR 


SKB 


•aooB 


CK IF ^ND SF BUFF 


IRU 


CTia 


YE81 m END ARaUND 


CLA 






LCY 


s 


P8S CHAR IN A 


SKE 


ssoi 


CK |F EQUAL TS CHAR IN A 


SRU 


#♦3 




MIN 







iRU 


FTC! 


C8MPARES S8 TAKE 8UT 8F BUFF 


$TA 


T 


PUT THIS CHAR IN A BUT DSNT TAK 


BRR 


QPW 




iix 


T 




C8A 






ADM 


T 


(38 BACK T8 START 8F BUFF 


UDX 


T 




8Ry 


CTU 




UD8 


XX 


SET FLAG# NEED A CHARt 


^T8 


TTYBRK|2 




CXA 






ADD 


116OOOOOB 




ADD 


iTTYBRK 




CAP 






PRU 


TIDMS 


SET ACTIVATI8N F8R NEXT INPUT C 


BRM 


lei 


PR8eESS FILE N8 


SKB 


aUTBIT 


CK IF 8UTPUT 



iRM TRPB YESj N0T VALID F9R CIT 

$KB CNRBIT 

8RU CIT2 

SKN re#a 

8RU CIT3 

BRM GPW 

UDA T 

IDX Fli^E 

STA FW#2 

IDA X3 

ADM FC#2 
CJT3 CIA 

LDB FW#2 

ICY 8 

SKE SSOl CK IF EQUAL T8 CHAR IN A 

iRU lex^i 

MIN 

LD8 F0#2 

iRU CI 3 

CIT2 CLA 

STA SWCIT 

iRU CI a 

$SWCIT DATA .1 

INOF 

# 

« 

Cie P9PD 161000008/ i/i#oa 

CIE STA SSOl; $TB SS02; STX $S03 

LDA# Ol ^KA f{NeT)lJ BRU CIll LD8 »I9X»lJ STB QPW 

SKE 50i iRU FTC0; BRU FTCI 
Cli ©RM leil SKB CHRBIT; BRU CI2i SKN FC#2i BRU CI3 

LDA FW#2i STA Ti BRM GPW 

LDA T; LDX FILE; STA FW#2; LDA X2; LDB FD#2; BRU CI5 
C|2 LDA SSOU ETR f377B; STA T; BRU WI2 
Cll UDA XNl 



Cl^ ADM rCiai SKB eUTBITi iRU CI# 

ClAl LPS FW#2j LCV 81 STB rw#2i BRU ieX4-l 
CI4 LDA SSOU RCY S; IDA FW#2; tCY 8i STA FWi2i BRy PePXie 
« 

* »WI9» Pt D^UTSCH 9/i3/65 
* 

W|9 P8PD i6000000B#i/l#0#i 

WII STA SSOii STA Tl STB S$02; STX SS03 

UDA» 0| BRM leU SKB CHRBIT; BRM NTRPB 
WIS BRM GPWi UDB DEV; SKB ©UTBITl BRU P©PX|9 
« 

* 18 EXIT 

I0X UDA T; STA SSOU BRU PBPXIS 

Wli |RM WITi BRU CI2+1 

« 

WIT IRdi SKB 9UTBIT; BRU WI3; IDA FCi2 
WIS UDB X7/ SKM X2i BRU W|4 

UDA XN3; ADM FC#2; ClAi XMA FW#2; STA T; BRR WIT 
W|# tDB DEVI BRM GPW 

UDA Ti RCY 8i IDX FILEi IDA FW,2l UCY 8; STA FW#2 

tDA FCi2/ ADD Xll STA FC#2i BRU WIS 
W|3 LDA FC#2i ETR X? i LDB T| SKE X2i LDB FW,2 
WIT STB FW#2; CIA; UCY Bi LDB DEV; BRM GPW 

LDX FlUEi CIA; IDB FW#2i ICY 8 

l^DA XHli AOM Fq#2; SKN Fe#2J BRU WI7 

UDA X3| ADM FC|2J BRR WIT 
* 

» 'Bjet 12/15/65 
« 

* BIBCK 1/3/ KUUDOE VERSION 

* INPUT! AiNUMBER BF W8RDS# XilST LBCATieN 
» 9UTPUTI AilST MEM9RY L0C» NiT READ INTa. 
# 

B|e PdPD 17600000Bn#l/On 

B|E STA SSQll STB SS02| STX SS03 m Kpi^ 

UDA# Oi BRM 181; SKB CHRBIT; BRM b^t^l QBXi BRU» BDEV#2 
SB8 CAX; M|N BDC#2 (TEMPt) 
SII EQU ♦ (T|MP») 
BIS CAX; IDA SSOl; SKG «0; BRU BI3 



LOA XiZi SUB 0#2J ETR ADMSK; SKG ^O; BRU BJG 

SKG SSOll BRU *+2; LDA SSOU STA T 

ADO Oi2i STA BUJ l,DA T; CNA 

CePy AX#N| ADD SS03I ETR AQMSK 

SK8 8UTBIT; BRU 8l6i MRQ B|C2; STA B|5j I.DA 3IC1J ADM iU 
BH LDA 0#a 
BI5 STA Oi6l BRX BI4J LDA Tj ADM SS03i ADM* BUFF 

CNA^ ADM SSOU LDB DE;v; UDA BUFFi @RU BJS 
BI6 MRQ 3IC3/ XMA 814^; MRS BIC#I STA BI5j BRU BI4 
BICi LDA Qji 
BICS STA 0#6 
BIC3 UDA 0^6 
BIC4 STA 0/2 
BIG BSS 
BI2 IDX SS03; LDA 0#6l STA T 

IKB CHRBITl BRU BU; BRM GPN 
817 LDX SS03I LDA# Oi SKA »77740000Bl BRU 8I3A 

LDA T^ STA OiSi LDB DEV 

MIN SS03I IDA SSOl; $KG fU BRu 813^ SKR SSQl; BRU BI2 
B|3 MIN 

BI3A LDA SS03J STA SSOU BRU P8PX|e 
BIl iRM WITl BRU BJ7 
« 

pepxia LDA SSOU idb sso2; ldx sso3* skn time; BRR 

MIN O; MIN ACTR; LDB PACDMB; LDA QUTABi STA TTIME 
LDX iQTU BRU P9P0MS 
« 

* 

# »I0U 2/3/66 
# 

# THIS ReUTINE IS CALLED BY fCI0» AND 'WIO* TS CHECK THE VALIDITY 

# OF THE FILE NUMBER AND T8 SET UP 'FILE*/ »BUFF'# AND 'DEV». 

# INPUT; AFFILE N8» 

# eUTPUTJ BiDEV 

« 

FILE ZR0;* FILE NUMBER 

BUFF |R8;* BUFFFER ADDRESS 

UNIT ZRdi* UNIT NUMBER 

ACTR |:R8;* activation C9UNT 



IF VI 
AIRWO DATA 770000B 

SNDF 
« 

laiCl Zm ND£V*2,i INPUT Id SPECIFIED TELETYPE 
I0|Cg SRU ND|V+3#1 0UTPUT TQ SPECIFIED TELETYPE 

« 

lei ZRa; ETR ADMSK; STA FILEj SKG «NFIlE*U BRU I8I4 

# CHECK raR SPECIFIED TELETYPE 

SKG «777B*NTTY| SKG »777Bj BRU 1915 

# INPUT T0 SPECIFIED TELETYPE 

LDB leici 

1^16 |TR f7784 ^TA UNlTj STB DEV; BRR 191 
I8I5 SKG «1777B*NTTYj SKG :»1777B; BRM NTRPB 

# 0UTPUT Ta SPECIFIED TELETYPE 

LDB |e|C2i BRU I0I6 

# REGULAR FILE (N9T SPECIFIED TELETYPE) 

IF FC8 
lOH AXC# LPB FC#2; LCY Si ETR «77B; SKE U8B; BRU IQII 

ELSF J 
|ai# AXCJ LDB FA#2i LCY 9i SKE J8B; BRU I8Ii 

ENDF 
iai2 LDB FD#2| SKB X6i BRU I8l7j $TB DEV 

LDA FC#2l ETR ADMSK; STA BUFFj BRR 161 
« CHECK F8R TELETYPE §R N0THING 
leii SKE «77Bj BRH NTRP8; BRU I0I2 
I0IE CAB 

# ERR9R 9F BUFFER BUSY 

1017 SKB X2| BRU NISDMSj LDA XN4; ADM FD/2 

LDA fI9|8«l; STA §PW4 BRM MPPACTi LDA ERRBITl CLB; BRU GPW2 

1018 BRU P0PX 
# 

# 

# INTERRUPT 31 ♦ 
« 

# INTERRUPT 3lf W BUFFER INTERRUPT RdUTlNE. 

BLK3i ZR0M 131/133 SU8R0UTINE» SET«0 WHEN FREE* SET QT WHEN BUSY 
ISA ZR0M SAVE (A) 



ISB 

im 
wBurr 

WBE 

WSRRL3 

WRRL3 

INTR 

WBSV 

# 

INT31 

INT33 



JNTF 
INTX 

INTU 



ZRei» 
2R9;» 

2R9;# 

ZR9i* 
ZR0;» 
ZRQJ* 

ZR©;» 

|R9/* 



SAVE (B) 
lAVE (X) 

TARE NUMBER 
rilE NUMPER 
iUrFER ADDRESS 
^ND 9F WBUFF 
SAVE RRL3 
SET UP RRL3 
INTERRUPT ROUTINE 
TEMP ST9RAGE 



ADDR 



$TB ISii STX ISX 



IRQi STA ISA; 

^QU INT31 

IDA WRRL3; XMA RRL3; STA WSRRL3 

URR3J R8T RR13I LDA WBUFF; AXC 

XHA BLK3U STA INTRi BRMt INTR 

BRU INTF (DRQVE DEVICE) 

STB WB$V (DEVICE NDT FREE) 

IDX WFILE; IDX FC^g; caPY XA#AX#B; R§H 15 

ETR f77B; XXA; t,DB WBSV; IpX TTN8#2 

OIR; BRM EPU 

UOA BLK31I SKG mOi BRU INTU 

LDA WSRRL3; STA RRL3I IRR3; PST RRL3 

UDA ISA; UDB ISB; IDX ISX; BRI INT31 

IDX WFItl; IDA XN2; ApM FD|2i M!N ACTR 

UDA WRRU3; LDB WBUFF; SKB f^OOGB; I.CY 6 

RCY 6; ETR «77B; CAX; SKR RMCj2; NePj BRU INTX 



* 

# 

# 
# 
* 

# 
QPW 



'GPW' Pf DEUTSCH 9/13/65 

THIi R9UTINE GETS ©R PUTS SNE 
IT WILL DISMISS THE USER IF 
IT TAKES CARE 8F §UBR&UTINE 

INPUTS A»T«WQRD# B^DEVICEt 

aUTPUT? T»W8RD 



^Rd; CBX; BRU* DEV#2 



W8RP aN THE DEVICE SPECIFIED IN (8)f 
THIS IS N8T IMMEDIATELY P8SSIBLEf 
FILES AS WElLt 



* BUFFER BUSY 

NieOM^ 8RM MPPACT; 8RU 

NI8QDS BRM MPPACTl BRU 

NFiaDS BRM MPPACT 

F|©DMS BSS 

leOMS IDA FltE^ ADD 

QTDMS UDX ?QTI; BRU 

ieODM$ UDX bQIQi BRU 

« SU8R©UTJNE FILE 

QPWieS UDX PACPTR; 

IDX 

ADD 

LDX 

IDA 



J8DMS 
QTDMS 



•FD'^UOOOOOBi 

P8PDMS 

PePDMS 



CAB 



IDA PI, 2} ETR 17700000B 
FILEJ CXBi IPX FA/2; E8R 0; E8R §324000081 STA* 0^6 
1-1 (SET XQ)i STX 0; ISH 39; LDX PACPTRj STA PL^H 
FILI^ t«DA GPW; ETR ADMSKi XMA fC,2i ETR X7; ADM PC* 2 
T; tDB SSOaj IPX SS03; SKN TIME; BRR Oi BRy XPdP 



# BRS 
leRET 



# DISC 

QPWSd 
GPWSI 



41 
STA 
SKQ 
IDA 
IDX 

I/a 

LDX 
BSS 



RETURN FReM 1/0 SUBROUTINE 

T; UDA PL#2; ETR »7700000B; RSM i5 

§0; BRM TRPB; BRM 191 

FC^ai ^TR ADMSK; STA GPW; LDX rA#2| 

PACPTRl STA PL#2i STA 0; BRR GPW 



MJN BDC#2 



LDA# 0#$ 



BUFF; 


• NORMAL CASE# N8T BUSY 

QPNN LDX BUFF; LDA X,Zf SUB Q#2; SKA ADMSK; BRU GPW6 
LDB «»l 
STB SWCIT 

♦ BUFFER EMPTY 

GPW5 SKE »0| BRU GPW8 

* N9 FLAGS# START DEVICE 

GPW7 LDA FILE; LDX SSQSi LDB Oi SKB s^OOOOBl STA* 
GPWD LDX DEV; LDB SEL#2; LDX BUFF 

BRM ED; BRU NF|0DS (DR6VE DEVICE) 

BRU NI0QDS (CHANNEL N6T READY»BLK31) 

BRU NI0DMS (DEVICE N8T READY) 

# BUFFER EMPTY BUT FLAQ^ Ta REP8RT 

* E8R#E0F#ERR8R ALWAYS TURN 9N X# IN ^FILE' 

QPW8 MIN BUFF; SKA ERRB|T; BRU (^PW8A; SKA E8RBIT; BRU 6PW8B 
QPWF LDB f27657537B (137B) 



GPWiS CNA; AQM# 8UFF; CNA 

# INPUT? AiFlAG 3IT« BfRETURN STATEt 

# STATCl OiN0 DISC SPACE LEFT/ •JtOEVICE IN y$E/ - 
GPWg STB T; MRd FILEl MRG X^; IPX SS03i LDB 

SKB •40000BJ STA# 0; CAXj IDA FC#2j IDS FD#2 

MRG X7| SKB 8UT6IT; E:eR X5; STA FCi2 

UDA !i200000BJ UDX PACPTRj BRM HR; BRR GPW 

LDA T; STA SSOU BRU pePiNT 

ETR leRBITl IDB f270^6l34B (t3#B)i BRU GPW12 

UDA ERRBITl CUBi BRU GPWi2 



2?^Te8 MANY FIUES OPEN 



QPW8B 
GPWaA 
• BUFFER N0T EMPTY 



QPW6 SKB QUTBIT; 
LDA* 

SKN 

8Ry 

hlN 



BRy GPW9 



capW6A 

♦ ©UTPUT^ N8T 
QPW9 UDA Ti 
GPWX BRR GPW 



Q#2 

SWCIT 

CGPW6 

0#2^ STA 
INPUT 
$TA» Oi2J 



Ti BRR GPW 
MIN 0-»2 



CGPW6 



IF 

IDB 

STB 
SKE 
iRU 
M|N 
BRU 
INDF 



V6 

f • I 

SWCIT 
SSOl 

CGPW6A*l 


CGPW6A 



ENDF BEFORE tCTRU» 



* PRINTER 

# SFR 
QPWLP 



PUT ROUTINE, 



PD2 

PD7 
PD3 



TRANSLATES ASC TQ 6 BIT SDS CHARS# FILLS 
# HANDLES MLTPLE BLANKS AND N8RMAL PRINTER C8NTR8LS 
LDA T; eXS; LDX BUFFi SKN PDSW| BRU PDl (GET BLANKS C8UNT ) 
SUB ill STA PDCNT; CLAI STA T 

LDA l/2i SUB 0^21 SKA ADMSK; BRU PD3 (R88M IN BUFFER) 
MIN PDSWi* BUFFER FULL; BRU GPWD 
LDA T; SKG -TTB; BRU PD4 (PUT CHAR. IN BUFFER) 



PD6 

PDll 

PD5 

POX 

PDIO 

PPii 

PPEX 

PD9 

PP4 



PDSW 

PPCNT 

PDSWl 

ppswg 

P9SL1 
P8SU2 

pesLiA 

PR CHRS 



SK| il55iJ BRU **2| 8RU PD6; SKE «J52BJ BRU PD5 DRIVE IF CR 8R LF 

CNA; STA PDSWl 

CIA; SKE BUK31i BRU PD7; HIN Oj BRU PD7 

SKE §13781 BRU PDEX; BRU PD6 

BRU PDJO 

SKN PDiWSi BRU PD12; LDA PQSUIA; STA P0Sl.li STA PDSWa 

LPA Tl SKE "laSB <MUUTt BLANK CHARt)! BRU PD9 

UDA ipU STA PDSW 

iRR GPW 

$KE il33|i BRU PD2; CNAi STA PDSWa; BRU PDll 

UDA T; RSH 2i C9PY AX#A {CHARACTER NUMBER)/# 

LSH 2r MUl 93i UPA PRCHRS#2 (IDA WITH CHR WRD#CMPTE SHIFT) 

mXi liH Qi2i ITR f77000Q00B (LEFT ADJUST CHAR) 



0#2 (PUT CHAR IN BUFFER) 

PPSWl MIN PDCNTi BRU PDEX (EXT NdT 

»1 WHEN L88KING FOR CHARt C8UNT 



IGN9RE NEXT 
SKJP T8 T8P 



CHAR 
8F PAGE 



UPX BUFFi STA* 0*2| MIN 

$KR PDCNTi BRU PD2i MIN 

^R8 

ZR8 

;^R8 

|R9 

$K|PT8 1 

SPACE 1 

SKIPT9 1 

DATA 6057Ui7B#535757l4B-p74345420B/ 73^033618 

DATA 0OOi02Q3ii0^050607B/1011i556B/361316328 

DATA 252122g3Bia#2526g78#303Hl#2B#^3*4#546B 

DATA ^7505162B#636^65^6B#67707135B# 765537178 



BIKS) 



tfD' 6/27/66 



* EXECUTE 
# 

FTIME 
EPD 



DRIVER 8R C^NTRQi. ROUTINE 



IRdi^ EXPECTED WAIT TIME 

IRdi* DRIVER ADDRESS 
I0RW IRdi* I8R0 INSTRUCTI9N 
Ii$W |R9j* I8SD INSTRUCTION 
|©B im$* REAl BUFFER ADQRESSNADMSK 
TXCi DATA TCNT«40000B*#OOQlBj« BUFFER C^NTRSt W9RD 
TXCa DATA 17000000BM FILE MARK 



TXSl 
T?JFM 



HLT# TXCa 



W8RP FReM 



BUFFER 

PBT 



W8RD F8R END 9F FILE 



INPUTS b»drive:r address. 

0UTPUTJ N6 SKJPa DRiVE DEVICE 

SKIP i CHANNEL N9T READY 
2 SKIP 1 UNSUCCESSFUL 6F 



EP 



EDW 



EPWi 

EDF 

EPWI 

EDCI 

EPWMP 
EDWS 



PTAPE 



(BLK31 
DEVICE 



NE 0) 

N8T READY 



ZR9I STB EDD 

IF FCB 

LDX FItll IDA FA#2; ETR ?77B^ STA UNIT 

EU3F I 

UDX FILEJ UDA FC#2j RCY 151 ETR f77Bi STA UNIT 

ENDF 

LDX FDigi 

UDX BUFF I 

MPDSCl BRM» 
SKE BUK3n 



IDA 

iRM 



ePNDEViEi 
B$ET| UDi 



iRM 

CUAi 

IDA 

MRG 

UDA 

ADD 

ETR 

IDX 

IDA 

IDA 

kDX 

IDS 



RCY X5i ETR «77Bl STA FTIME 
EDp; SKB 117700000B; BRU EDWMP 
EDD; BRU EDF 

BRU EDWI; LDA UNlTj STA TNa 



T; RCY 9; ETR «140Bj MRQ *216000Si STA I9RW 
i200B; STA I8SW; LDA Tj ETR ADMSKj STA I8B 
RRL3i STA WRRL3; IDA BUFF; STA WBUFF 
i2i UDB DEVi CBXi 1KB 8UTBITI ADD BUFS^S 
ADMSKI STA WiEl LDA FILEI STA WFILE 
BUFFi iRH# EDDl BRU EDWBl BRU EDWS 
BLK3U SKG »0; BRR ED 
Ji LRSH XXi CAX; MIN RMC#2 
FILCI LDA X2l ADM FD|2i BRR ED 
EDl BRR ED 



tocu 

I BLK31 

BRM MPWBi 

FILIl 
f77Bi 

FILEi 

ID; 





LDX 
ETR 
UDB 
MIN 
^R9 



MIN 

BRU 
LDA 
CAX 
LDA 



EDW 
FCi2i 



RSH 15| ETR f77B; CAX; LDA TTNd^S 



EOQf DIR; BRM 
MIN ED; BRU EDF 
SEE PAPER TAPE DRIVER 



»CTRL» lO/U/65 



# THIS MANDtES 1/8 CeNTReU FUNCTIQNi 
* 

# INPUT? A»C8NTReL NUHBERi ADDRESS »FIUE NUMBEiRi 
CTRL R8PD l7200000Baa#0#i 

CTl STA SSQU STi SSQZj STX SS03 
LDA# 01 8RM lei 

C8PY 9A#iXj ETR ApMSKj SKQ *N0EV»1| BRU *^Zi 8RM TRPg 

LDA SSOil ETR AOMSK; UD8 8PN0EV#Hj SKB XI; BRU CTLl 
CTia SKG# CTLT#ai SKG pQ; BRM TRPB; ADD CTLT^a; CAX 

LDB DEVI SKB DRMBIT; BRU *^3i BRM MPWB 

8RU **2I BRM MPDSC 

UDA OiZi STA CTLWi LDX FILE 

ITR §77777778; XMA CTLW; $KE CTIW; BRM CBF; N8P 

LDB CTUW; SKB f^OOOOQOB; BRU* CTLW 

8RM EDi BRU NP8PX; BRU NI8QDS; MfN 0; BRU NI8DMS 
CTLl LPX PACPTR; SKN PQU#2; BRM TRPB; LDX DEVI BRU CTL2 

# C8NTR@L DISPATCHER 

CTLW |R8 C8NTR8L R8UTINE ADDRESSt 

CTLT OATA CTT0#CTTlfeTT2#CTT3#CTT4#CTT5/CTT6#CTT7 

DATA CTT84CTT9#CTT10 
« 

# BIT atl MEANS DUMP THE BUFFER FIRST, 
« BIT 3i0 MEANS G8 T8 ED FIRSTt 

# BIT 3il MEANS G9 T8 CTRL R8UTINE DiRECTLYt 
CTTO DATA 

CTTJ CQU CTTO 

CTTa DATA 1; 102B PNE9R 

CTT3 EQU CTTO 

CTT# DATA 6; 408 NTRAP; 2 M8SR; 2 MFSF; 2 MBSF 

#08 NTRAP; 2 MREW 
CTTS DATA Si i02B ME8R; 1028 MBSRi 102B MFSF; 102B MBSF 

1028 MERii 102B MREW; 102B MEeP; 102B MERL 

IF VI 
CTT6 EQU CTTO 
CTT7 EQU CTTO 

ENDF 

IF VI 
CTTS DATA 6; 40B NTRAP; 4QB NTRAP; 40B NTRAP; 40B NTRAP 



hOB NTRAP; 408 NTRAP 
CTT9 DATA 8| 140B NTRAP; i40B NTRAP; 1406 NTRAPj 140B NTRAP 

i40B NTRAP; 140B NTRAPi l^QB NTRAPj 140B NTRAP 

IISF I 
CTT8 IaTA 6| 40i DIE8RI 40B D8SR; 406 DFSR; 40B TRAP 

40B DWNDi 40B DREW 
CTT9 DATA 8; 140B D8E9R| 140B DBSRi 140B PFSRj 140B DOLR 

i40B DWND; 140i DREW; i40B DISR; 140B DeEeP 

ENDF 
CTTJO lOU CTTO 



* 

# iMeNePN' 10/17/65 
# 

• THIS ReyTINE 9PENS PHYSICAL FILES (BRS 1) 

# INPUTS A»IND|X BL8CK ADORiSS dR UNITt 

♦ XiDEVICE 

« ©UTPUTI AFFILE Net 

* XiX BL0CK P9INTERt 
« 

FFLST |R0|# AVAILABLE FCB LIIT 
« 

MiNQPN LPS SS03I UDA FFLST; SKG «0i BRU 0PNie 

C8PY BX/BAjB; STB UNIT! SKA «77740000B; BRU 9PN2 

SKQ ffNDEV-1; SKQ «0; BRH TRPB; STA DEV; ADD pDlUl STA DIU 

• 9PEN NORMAL FILE 

LDA OtS/»tl SKA 0UTiIT; LDB BUFS#SJ STB T 

LDA iUFS#ai SKA i40000i; BRU #*2l BRU 8PN7 
« MAG TAPE 

LRSH 15; ETR f77i; SKN SSOi; SKG SSOl; BRM TRPB 

IF FCB 

LDB SSOl; ETR 1770; STB UNIT; LDA SSOl; ADD* DiU; STA DIU 

ILSF ■ 1 

LDB SSOl; ISH 15; STB UNIT; LSH 9; ADD* DIU; STA DIU 

ENDF 
8PN7 LDA BUF$#2; SKA XI; BRU 8PN4; SKN# DIU; BRU 8PNU 
©PN4 LDA DEV#2; ETR fl6300000B; ADM DEV 

LDB DEV^2; LDA 9PNDEV#2; STA 8PNDEV; SKG XI; BRU 0PN6 



LDX PAQPTRl SKN PQU#2l BRH TRPB 
8PN6 iKB SBrSIT; BRy »*g; BRU ©PNS 

BRM BGETi BRU 9PN12 (NO BUFFER); 

ADD Ti ETR ADMSKi STA l#a 
0PN8 CIA; STA T 

UDA ePNDEVi SKA ADMSK; BRU ©PN5 
8PN9 UDA FFt,ST; STA# DIUi CAX; LDB DEV; 

IF FC8 

LDA >J&Bi SKB 6UT8IT; BRU #*2| MRG 

I 
X7i SKB 8UTBIT; LDA X2 



CXAi ADD »2J STA 0/2 



STB F0#2 



700B; MRG »200B; CLB; ISH 15 



UDA 

ENDF 

MRG BUFFi IF mfCBi MRG UNIT; ENDF; STA FC#2; BRU 8PN3 
8PN5 LDB DEVI XAB; SKA DRMBlTl BRU *^3i BRM MPW8 

BRU *+2; BRM MPDSC; XAB; BRM* 8PNDEV; BRU epN13; STA SSOl 

♦ ERR8R RETURN 

IRM MPPACT; LDX DEV; LDB DEV#2; LDA BUFF 

iKB gBFBIT; BRM BPyTl BRU PBPX 
9PN13 BRM MPPACT; BRU 8PN9 
9PNJ2 UDA fgi BRU 9PN10 
8PNU UDA fi 
9PNI0 STA SSOU 8RU NP8PX 

# ePEN SUBR8UTINE FILE 
8PNa ITA T; ETR AOMSK; XMA T; LDX FFLST 

liOiOOOOOBj ADD iNDEV^^S; STA FD/2 
X7; SKA 8UTBIT; LD8 X2; STB FC/2 
FCB 
8PN3 UDA T; MRG UNIT; XMA FA#2; E8R XI 

i 

8PN3 



ETR 
LDB 

UPA 

ELSF 

LDB J8B; LSH 39; MRQ T; XMA FA/2; E8R XI 

fNDF 

XMA FFLST; ETR ADMSK; STA SSQli MIN 0; BRU P8PX 



LPaPN ;^R8; 

CLB; 

# »M8NCLS?/ 



8PEN PRINTER! INITIALIZE SWITCHES 
PRT; BRU ©PNll; LDB P9SLXA; STB P8SLi 
STB PDSWli STB PDSW2; BRR LP8PN 
'I8H' 10/16/65 



* THESE R8UTINES ClQSg PHYSICAL FILES (BRS 2/BRS 8) 

« 

* iRS 2 

M0NC:LS BRM CL5; BRU P9PX 

♦ BRS 8 

IF FCB 
len ^OS jeB; LSH 39; LDB 87700000B| LDX f nfile 
IHl iKM FC*NFILE#2l BRU IH2J CXAi ADD «NFILE 

f#H^ tot -4ai4"-k$t4-3f7 WB PtfTOOOOOBi LDX •wNf ILE 

I HI f KM F^^Nf^Itt I Ef BRU met eXAl 'AOT f NFTLE 

BRM CLSi BRU I0H 

IF V5 
im BRX JHli LDX UIBI LDA TTNe#2l ETR »77Bi STA TTN6#2| BRU P8PX 

lUSF I 
IH2 |RX IHii BRU PQP)( 

INDF 
# 

# DUMP THE BUFFER IF NECESSARY 

♦ INPUT} B«DEVlCEf 

CiF imi SK8 9UTBITI SKB CHRBIT; BRU CBF2 

# eUTPUT FILE# BUT N8T CHARACTER 8RIENTED. 

UDA FC#2; ETR X7| SKE X2j BRU CBFli BRU CBF2 

# 9UTPUT FILE WITH CHARACTERS IN FW» 

C8F1 RSH IBi LDB FWi2j CdPY AX#BA; LDB =276575378 (137B) 

LCY 8#2l STA T 

LDX FILEl IDA FC#ai ETR 177777778; MR6 X2; STA FC^a 

LDB DEVI BRM GPWi LDA FILE; BRM I8| 
CBF2 C9PY BAiBX; ETR ADMSK; SKG »NDEV»1; BRU *-^2i BRR CBF 

SKB DRMBITl BRU CBF3; SKB eUTBIT; BRU CBF^ 
CBF5 MIN CBF; BRR CBf 

* 9UTPUT FILEi CHECK F9R DATA IN BUFFERt 

CBF*k LDB DEV#2; SKB SBFBIT; BRU **2i BRU CBF5 
LDA* BUFF; SUB BUFF; SKG »2; BRU CBF5 
BRU GPWD 

# DISC FILE 

CBF3 LDX BUFF; LDA 8DC#2; SKB 8UTBJT; SKG nm%i 8RU CBF5 
BRM BSET; BRM MPDSC 



PRM PTD; 40A X|; ADM* iIP#a; BRU DTX 

« 

# THIS RdUTlNE CieSES dHE PHYSICAL FILE 

# INPUTI ApFILE NUMBERi 

CIS |R9; ETR ADMSKi SKS §Zi BRR CIS; BRM lil 

|RM CBFi BRU CI.S3I SK8 DRMBMl BRU PRHCUS 
CLS<^ LPX DEV; UDA 8UFS/2I UDB DEV#2i SKA i^OOOOB; BRU CIS5 
CIS6 LDA «»l; STA D|U#g; IPA BUFFJ SKB SBFBIT; BRM BRUT 
CIS3 UDX FILEl CLA; STA FC#2i IDA FFLSTi MRG XU STA FA#2 
STX FFLST; BRR CIS 

* MACS TAPE 

IF FCB 
CUSP UDX FILEJ LDA FA#2; ETR «77Bi STA UNIT 

IISF I 
CIS5 UDX FIlEl LDA FC#2| RCY X5i ETR f77BJ STA UNIT 

ENDF 

IDX DEV; ADD DIU#2| iUB iDIUl LDB 0EV,2; CAXi BRU CLS6 

* DISC 

DRMCUS BRM MPDSCi BRU DCIS# 
DCUS3 BRM MPPACT; BRU CIS4 
# 
* 

# tRDU» 6/30/66 

* READ DEVICE AND UNIT 

* 

RPU BRM ie|; CBAI ETR ADMSK; STA SSOS; SKG «NDEV«li BRU RDUl 
RDUa IDA UNIT; STA SSOl; BRU PQPX 

IF FCB 
RDUl IDA FA|2 

ELSF , 1 
RDUl IDA FC#2; RCY 15 

ENDF 

|TR ?77B| BRU RDU2+1 

« w BUFFER BRS'S 

* 



» TURN err run»away tape 

* BRS IH CALLED BY 'ABT' AND PU 

HTPI CIA; SKE BLK31J SKN PQU/H; BRM TRPB; DISW 

LDX WFIIE; IDA FD#2i SKA XZi BRU *^Zi BRU P8PX 
LDA sT^Ki STA 8LK3J; LDA m^QPti STA* 3iB| BRR 31B 

* L9CK TAPE 

* BRS U8 

TGET $KN PQU/2; BRM TRPB; SKG pNTAPE-1; SKG »»!; BRM TRPB 

CAX; SKN TJNQ/E; BRU TGETl 

LDA J8B; STA TgN8#a; M|N 0; BRU PQ?)(> 

TGETl LDA TUN8#2; SKE ytaBi BRU P8PX; BRU TGETl-2 
» UNLOCK TAPE 

# BRS 119 

TREL iKN PQU/2i BRM TRPB; SKG »NTAPE*l; SKG »-l; BRM TRPB 

CAX; IDA "i"!; STA TUNei2; BRU pqp)( 
# 

# 'BQET»#'BSET»j«BPUT' 6/28/66 
* 

# BUFFER MANIPULATION R8UTINES 

RSTBUF |R8i CXAl ETR ADMSK; ADD "2; STA 0^2; STA X,Zi BRR RSTBUF 

« 

BCBIT imi LDA FIWRDI SKG lO; BRR BGETl MIN 8GET 

tDX iNBUF-l; N8D NBUF*!; E8R X2; RCY NBUF-l; LCY 0|2 
iTA FBWRD; L^X BUF#a; STX BUFFj BRR BGET 

# 

# 

♦ PUT RIAL BUFFER ADDRt IN A AND T 

BSET imi C8PY XA#B| RSN lU LDA RRL3I ETR *77B 

UCY 11; STA T; BRR BSET 
« 

BPUT IRQ; ETR ADMSK; LDX f»NBUF; SKE BUF'»'NBUF#2; BRX ♦-! 

UDB il; LSH 47#2 

MRG FBWRDi STA FBWRD; BRR BPUT 
# 
# 

* BRS BE*17 TEST F8R LAST BUFFER FREE 

CKBUF LDA f^OOOOOOB; SKA FBWRD; BRU P8PXl BRM TRAPB 



# 

IF y6 

♦ BRS BE*7 PREAK P81NT TE§T 

* SKIPS IS BREAK PeiNT SWITCH IS D9WN 
» INPUTI X«SWITCH NUMBERi 

BPTEST IKN PQU#2l BRM TRP^i IDX SS03 
LDA «1000Bi RSH 0i2i XMA BPT?; 
AOH BPT2 

BPT2 BPT; M|N Ol BRU PBPX 
ENOF 



ETR f777770008 



ENTRY P8INTS 
INTRY 
ENTRY 
ENTRY 
ENTRY 

Intry 

ENTRY 
INTRY 
ENTRIES (FRdM 



DBjA#DBaA#LA$A#SASA#PWlA#Du/9A 
DTXS1# |DCl# IDMRET# IDRS^ IDH2 
DFPU#DFRX#SDBM#SWSF/DFeD#DFER/SSHF 
IDCIUCBRF 
NOCU#DTH#DTP 
DRQ#DRQyiEDCL#DTXS2 
IDM#DCWB|T 
MOBQ) 



SMIFIl#SMBA#SMDRN#FBWRD#SM9FILiFBADR#IXC 

BX9#BBP#BFP#BIN#BIC#BDN/BDC/BIP/BIA 

40000000B 



ENTRY 
ENTRY 
DCWBIT DATA 

# DRQ MAP 

* mm 0? DISC AODRi 

♦ WtRD %l 0m7wJll£ N8f 8»23fCeRE ADDR. 

* W8RD 2; Oi'R/W l»5iFTIME 6-8ilNTf R8UTINE 

♦ W8RD 2 NEGATIVE F8R WRITE. 
DRQ BSS NDRQ#3 

DROU EOU * 



9»23«W9RD C8UNT 



# fUA$ri?SAS' 10/18/65 



# 

• THIS 
« 

IAS 

LASA 

# 

SAS 

SASA 

# 

« 

♦ THIS 

NPCl, 
EDCL 

pai 

PMRET 
PRS 

pwoal 

PWD33 

RI.DMSK 

DADMSK 

DRMTRY 

IPSA 

IPSi 

IPSX 

* 

JNTN9R 
IPT 

I DM 



ReUTINE IHPUEMENTS THE L8AD AND ST8RE TS SECeNIDARY MEMORY. 

PdPD |460OOO08*l#U0a 
©RM MPPSCi BRU ISH 

PePD U7000008#l#l#0/1 

IRM MPpSC; BRU SSM 

» 4/16/66 

IS THE DRUM INTERRUPT R&UTINE F6R ALL DRUM 1/0 

|RQ;» CaUNT 8F PRUM CBMMANDS IN UIST 

imt^ CURRENT |ND eF LIST 

IF V2 

|R0;» CURRENT INTERRUPT P8INTER 

^R§;# CURRENT C9MMAN0 EXECUTING PeiNTER* 

4R0;# BRR/8RI RETURN SWITCH 

gHQi* SAVE REGISTERS ©NE TIME SWITCH. 

iRM INT33 

EQU IDWD31 

ENPF 

DATA ND|SCS*20000B-1 REAL DISC ADDRESS MASK 

DATA NDISCS#32»64*4«1 DISC ADDRESS MASK RIGHT SHIFTED 2 

ZRe;* TRY-AGAIN CeUNTDSWN 

imi* SAVE CA) 

ZR0;* SAVE (B) 

imi* iAVE (X) 



IPSWI iRU 



IPE2 



IRQ} BRR INTNeP 
PATA INTN9P#IDR/|DPiIDF#IDB 
##«»###«##«tINSERT NEW INTERRUPT R0UTINE HERE******************* 
ZHQ 

PRTJ BRU *»|; PET; BRU ID7| PCT; BRU ID7 (ERR0R CHECK) 

IP3 ALERT DISK 0R BRU ID3 

P9T* IDCL DISK ADDRESS 

E9M# lOOOOB ALERT CHNL 

SRU * 1/8 C9NTR8L EeM 



IDCADD C8RE ADDRESS 

* R/W sue 

IDSAV; SKR men N9P (SAVE REQi#DECRi CSMMAND CeUNT) 
IDCLl ADD f3i SKE «DRQU; BRU #+21 IDA ?DRQ; XMA IDCL (NXT CHD 
IDCUU SKG -pU PRU ID5 (IDCUl IS EXECUTING#SKIP T8 P8ST PR9C 
IDA XsZi l^RSH X$i STA IPOi {FILE NUMBER) 

LSH 5; XXAi SKR R^C*2i N8P (BUMP PAGE 16CK) 
IPA 8#g; LRSH IS; ETR •378; CNA 

LSH 3i C9PY AX#X8| BRM» IDT#2 (XEQ INTRPT R6UTINE) 
I'NDTRY*!; STA DRMTRY (DRUM ERR8R C9UNTER) 

IDCLl SKN NDCLl BRU ID6; BRU IDS (SETUP NXT CMND 9R WINDUP) 
IDCL; CAX; LDA li2; LRSH U (SETUP ReUTlNE#GET C8RE APRS) 
f3l STA IDQl (SAVE TW8 HIGH 9RDER 9ITS) 

t#i; LRSM JO; STB IDCADD; ETR »37B; ADD ID02 (GENERATE 1/8) 
2#2; ADD ID03; STA I0E2 (ST8RE E8M) 

IDOll CL^; LSH 5; ADM IDE2 (ADD T8 E8M) 

ID^WIA; STA IDSWl (SET SWITCH T8 XEQ CSMMANDS) 
ID05; SKN B,2i ADD ID06; STA iPEi (MAKE READ/WRITE ESM) 
IDCLJ; SKG iiil; BRU IDSWl (EXIT IF CMND ACTIVE) 
IDCLU BRU IPl; LDA IDWD31; STA 31B 
IDSA; LP^ IPSB; LDX |DSX; MIN IDRS (REST8RE REGS,) 
IDMRET; SKR IDMRET; BRI |DM; BRR IDM (INTRPT 8R SUBR RETURN) 
IDSWiB; STA IDSWl; BRU IPO (LIST EMPTY#D8NT XEQ ANYM8RE) 
IDSAV; LDA "Hi; BRU |P4 (SETUP T8 INDICATE N8 CMND EXECUTING) 

SKN IPRS; SKR IDRS; BRR IPSAV (SAVE 8NLY 8NCE) 
IPSA; STB IPSB; STX |DSX; BRR IDSAV 

IDCLl; BRU **2; BRU ID3; BRM IDER; DET; MIn PRMERR; DCT 
CHNERR; SKR DRMTRY; BRU *+3; MIN DRUERR; BRU IDSWl 
NDCL; BRM IDSAV; LDA «^i; XMA IDCLl; BRU ID6 
IPR |:R9; BRM IPr (CHECK DISK ERR9RS) 

LDA XN2; ADM Fp^ij M|N ACTR; LDA FCi2; CBX 
IF C181 
ADD w2 
ILSF I 
ADD il 
ENDF 

LPB i3777B; SKM 1#2; BRR IDR 

LPA 1^2; LRSH 11; ETR i37B| STA IDOl (PAGE NUMBER) 

LDA =7; LSH 11; CAX 





P8T 


IPEl 


mu 




BRM 




LDA 


IP4 


XMA 




CAX; 




CIa; 




CAx; 




CLA; 




UDA 


IPS 


LDA 


ID6 


ITA 




ETR 




IDA 




$KN 




IDA 




kPA 




LPA 




lO^ 


IPO 


SKN 


IPI 


LPA 




SKN 


ID2 


LDA 


IP3 


iRM 


IPSAV 


imi 




iTA 


IP7 


SKN 




MIN 




MIN 



OIR; E8M 2i4008; P8T IDOl (SET RELABEllING) 

IF C181 

LDA •2#2| ADD N0DW#2| STA -U2 

UDA .liai ADM 0-»2 

^NDF 

C8M 21400Bi P8T RRL3 (ADD 1ST 8FR WRD TO CNT) 

EIR; BRR IDR 
IQP gR8; BRM IDFl |«DA fPBBj ADM FD/2; BRR IDP ( CK OK ERR#MRK BFR) 
IDF |R9; LDX lOOU SKN DRMTRY; BRR IDF (RETURN IF N9T UNREC8VR0 ^R) 

LDA FD#a* MRG X%| $TA FDj2| BRR IDF (MARK ERR9R FLAG) 

# iNTi ReyTIN^ F8R NeN^FlLE DISC I/8» BRS BE+ljBE+2t 
IPB |Rd; LDX IDOl; IDA X2; EDR TTN©,2; STA TTN9/2 

UDA §2000006; SKN DRMTRYj LDA sioOQOOB (NB ERR9RS) 

ADM TTN9#2; MIN ACTR; BRR IDB 
IDMg ZR8; SKN IDCll; |RU I DM22 

iTA BLK31; IDA IDWD33; STA 33B; CLAI XMA BIK31| BRI |DM2 
IDM22 DCT; BRU #+#; DET; BRU **2; BRI IDM2 

M|N IDMRET; BRM IDM; BRU IDM2+1 

* R8UTINE T9 SAVE DISC ADDRESS 9F ERR8R 

IDER |R8; STA IDER3I IDA* IPCll; ^TA* IDERll MIN IDERJ 

LDA |DE;RgE; SKE IDERl; BRU **3; LDA iID£R2 

STA IDERl; LDA IDER3; BRR IDER 
IPERl ZR9 IDER2 
IPER2 ass 10 
IDER2E ZR9 ♦ 
J0IR3 |R9 

IPOI im W8RKING CELL 

IPOg E9M 171008 1/9 C9NTR8L E8M 

ID03 DATA •200B READ DIFFERENCE 

ID05 E9M 3666B WRITE E9M 

ID06 DATA ••1040B READ DIFFERENCE 

IPSWJA tm 10026B ALERT DISK 

IPSWli IRy ID3 

ipCADD zm 

• »PTP»#»DTHf 



# QINERAILY USEFUl, DRUM RaUTINES 

DTXSl ZRQf* C9HMAND C0UNT 
OTXSg inQi* LA^T C9MMAND L9C 
* 

* mSll CQMMAND C^UNT 

DTP IRQi LPA ■»!; STA DTXSli BRR DTP 

* INITIALIZE C9RE ADDRESS 

DIM IRQi RSH 11; STB T; MUL *3j CBX 

IDA RRL2; LDB RRUn LCY 6/2; ETR «77B 

LD8 T; LCY U; STA T; BRR DTH 
# 

DW| PaPD 14400000B#1#UO/1 
DWIA iRM MPDSC; BRU DIW 
owe P0PD H500000B#l#l/0il 
DWdA iRM MPDSC; BRU D0W 
DPI P8PD l4a000O0B#l#l#0#l 
DBIA iRM TRPB 

080 PaPD 14300000B#lii/Oa 
DB9A BRM TRPB 
« 
« 

# DISC BRStS 
# 

# BRS 5§ 

S§MP ^RM MPDSC; LDA SSOl; BRU SSMFA 

* BRS 59 

CBRP iRM MPQSC; BRU CBRFA 

« BR$ 66 

DFDL iKN EXECl; BRM TRAPB; iRM MPDSC; LDA S$0|; BRU DFDLA 

♦ 8R$ 67 

DFER SKN PQg#a; BRM TRPB; BRM MPDSC; LDA SSQl; BRU DFERA 

* BRS ag 

SWSF iRM MPDSQ; LDA SSOJ; BRU SWSFA 

• IRS 87 

DFRX $KN PQU#2; BRM TRPB BRM MPQSC; BRU DFRXA 

♦ BRS U3 

DFCD BRM MPPSC; LDA SSOl; BRU DFCDA 



* BRS Bi+5 

SDBM SKN PQU#2i BRM JRPBi 8RM MPOSC; IDA SSOll BRU SDBHA 
END 



3MDBG IDENT 7/02/67 

# V|RSI^N'12 6/18/67 
# 

♦ SYSTEM FUAGSj dPOSs PARAMETERS/ AND MACRQS 



* ASSE 
CRXF 

PNXF 

LPXF 

RELCHN 

940M 

ARMF 

Vi 

va 

V3 
V4 

V6 
V7 
V8 

FCB 
CI81 



MBIY 
EQU 

EQU 

EGU 
EGU 
|QU 
EQU 
EQU 
EQU 
EQy 
EQU 
EQU 
IQU 
EQU 
EQU 
EQU 
EQU 



FIAQS 



»1 



1 F8R 940) 



{Nd CARD REAPER) 
i (PAPER TAPE PUNCH 
»1 (N9 UINE PRINTER) 
•1 (euD DRUM CHANNED 
•1 (•! FSR BERKELEY* 

(ARMING FEATURE) 
(VERSION 1«85»1) 

(VERSieN 1.85-2) 

(VERSION lf85»3) 

(VERSieN 1»85*4) 

{VERSION 1.85»5) 

(VERSieN i.85i'6) 

{VER$I8N ii85»7) 
(RELABELED VERSldN) 

(FCB CHANGES) 
i (l»8l COMPATIBLE FILES) 



* 8PDS 
SBRS tPp 
TSN epD 
CKN 0PD 
CKF aPD 
LRRl ^PO 
LRRe (&PD 
LRR3 8PD 

JF 

♦ PRINTER C&MMA 
EPT MACRe 

DATA 
ENDM 
PFT MACR9 
DATA 



J73000008#l# 

00222000S#2 

00220l00ii2 

00220200B#2 

0022D#Q08#g 

002210008*2 

002214008*2 

V5 

NDS 

40140608 



40U060S 



1 SYSTEM M©DE BRS 

G8 FR0M N8RMAL T9 M8NIT9R M8DE 

TURN 8N THE CL0CK 

TURN SFF THE CLQCK 

L8AD RELABELLING REGISTER 1 

L8AD RELABELLING REGISTER 2 

L©AD RELABELLING REGISTER 3 



END 8F PAGE TEST 



SKIP IF N8 PRINTER ERR8R 



PRT 



SKIPT© 



SPACE 



PRINT 



CAT 



ENDM 

MACRO 

DATA 

ENDM 

MACR9 

DATA 

ENDM 

MACR8 

DATA 

INDM 

MACR8 

DATA 

DATA 

peT 

ENDM 
0PD 



^Oi2060B 



SKIP IF PRINTER READY 



210460B+D(i)*1000B 



210660i*D<i)»1000B 



# BREAKP8INT 
BPT QPO 

ENDF 

# 

» 1/8 

TTYS 

TTYSKS 

E9D 

AIR 

RRF 

WRF 

R|N 

I8SDE 

I8RDE 

RSR 

RSE 



242060S 
3152008 
DU) 

O^OHOPOB^a 

TE§T 

04020000Bi2 



ALERT INTERLACE^ 1 CHAR, PER W8RD 
ARM 131/ DISCeNNECT WHEN 
TRANSHISSieN IS C8MPLETEt 



I8SDW 

I8RDW 

AID 

DSR 

DRT 



DIVICE 
MACR8J 

|QU 

9PD 

©PD 

^PD 

8PP 

^PO 

EQU 

EQU 

MACR9; 

MACR9; 

MACR9/ 

EQU 
8PD 
9PD 
8PD 



X 



8PD»S 
DATA a0277777B; 
24G77000B 

006000008/ 1# 
006100268/^ 
006022268^^ 
006022668/2 
00616200B/2 
00617200B 
006140008 
SKS* 10026BI 
SKS* U026B| 
SKS» UOOOBj 
21#200B 
2U000B 
00210026B/2 
00202626B/2 
04010026B#H 



ENDM 



ALERT RAD 
READ RAD 
WRITE RAD 
RAD I8SD 



ENDM 
ENDM 
ENDM 



ALERT DISC 
DISC READ 
DISC READY TEST 



PIT ^PD 04011026Bia 
DCT dPO 04011000B#2 



DISC ERR8R TEST 

DISC CHANNEL ERRSR TEST 



♦ PARAMETERS 

BE EQU 123 

NP^P EQU 44B 

* W BUFFER DEVICE PARAMETERS 
RTCNT ^QU 64 

PNCNT EQU 40 

CRCNT EQU 40 

CRCNTi EQU 40 

CPCNT |QU 40 

CPCNTB ^QU 40 

NTAPE CQU 2 

NLINK EQU 

TCNT EQU 199 

IPCNT EQU 3.38 

RTWT EQU RTCNT#40/3 

PNWT Iqu PNCNT#400/6 

CRWT EQU 300 

CPWT EQU 150 

TXWT EQU 20*TCNT/tO 

LPWT EQU i33 

NTRTRY IQU 10 

NTWTRY EQU 3 

* FILE PARAMETERS 
NFILE EQU 40 
MiUFX IQU 34000000B 

DIB Iqu 004000006 

♦ TTY PARAMETERS 

NTTY EQU 32 NUMBER ©F TTYS 

NTTB EQU NTTY+NLINK 

NITTC EQU 

NTTYC EQU 70 

TTYEWM IQU aO 

AMi EQU 40000B 

A|8 EQU lOOOOOi 

AP8 EQU lOOOOOOOB 



LAST BERKELEY BR$t 
NUMBER OF SYSP0PS IN USE* 

PAPER TAPE READER BUFFER LENGTH 
PAPER TAPE PUNCH BUFFER LENQTH 
CARD READER BUFFER LENGTH 

CARD PUNCH BUFFER LENGTH 

NUMBER 8F MAG TAPE UNITS 

LENGTH aF MAG TAPE BUFFER 
LINE PRINTER BUFFER LENGTH 
PAPER TAPE READ TIME 
PAPER TAPE PUNCH TIME 
CARD READ TIME 
CARD PUNCH TIME 
MAG TAPE TIME 
LINE PRINT TIME 
NUMBER 9F REREAD? 
NUMBER 8F REWRITES 



NUMBER eF 

FBWRD F9R 
PReTECTED 



FILE§ 

EXEC BL8CK 
FILE BUSY BIT 



T9TAL TTY BUFFERS 

NUMBER eF CHARS |N TTY BUFFER 
TTY EARLY WARNING (2 SEC) 
ACCEPT MESSAGE B|T 
ACCEPT INPUT BIT 
ACCEPT PRINTER LINK BIT 



AKB 


EQU 




2000008 


8RB 


IQU 




4*00O0O0B 


8PB 


■IQU 




2000000B 


IIB 


IQU 




lOOOOOOB 


eiB 


IQU 




400000B 


♦ PAC 


TABLE 


: PARAMETERS 


NSQU 


EQU 


i2 


NUMBER ar CldCK 


NFQU 


EQU 




36 


NFAC 


IQU 




H4 


NPPAR 


IQU 


%o 


LENGTH er PACT E 


* ueB 


AND MEM9RY PARAMETERS 


NU^Bl 


SQU 




32 


NU0B 


ECU 




NU^Bl-t-l 


UMSZ 


IQU 




15 


NMCM 


IQU 


32 


NUMBER 0F PAGES 


NiMEM 


EQU 


7 


NUMBER eP PAGES 


NCMIM 


IQU 




60B 


NSMT 


EQU 




lOOB 


NUMEM 


EQU 


100B«NCMEM 


NPUQ 


EQU 


16 


NUMBER 0F PUCT E 


♦ RAD 


AND SWAPPING PARAMETERS 


NRDQ 


IQU 




20 


NRTRY 


EQU 




I 


NRAP 


EQU 




4 


NSEC 


EQU 




2»NRA0 


IINSEC 


EQU 




I 


NSBNO 


IQU 




18 


NSSP 


IQU 




i^OOOB L8C. 0F 


# 






MULTIPLE 


NSAM 


IQU 


16 


SIZE 8F SWAPPER 


* DI$C 


PARAMETERS 


NDTRY 


EQU 




4 


NDRQ 


EQU 




30 


ND!SC$ 


EQU 




32 




IP 




NDlSCSi32 


NPas 


EQU 




20i ELSF UNPeS 


MAXP 


EQU 


NPa$/2*200B*31#200B 


MINP 


EQU 


»NPe$/2#200B*32*200B 


TABUEN 


EQU 


NP0S/2*2tNDISCS#32*2 



ACCEPT KEYB9ARD LINK BIT 
8»LEVEL INPUT BIT 
S»LEVEL OUTPUT BIT 
INPUT LINK BIT 
9UTPUT LINK BIT 

CYCLES IN SH0RT QUANTUM. 
FULL QUANTUM SJZE 
NUMBER 9F PACT SLOTS 

NTRY 

NUMBER QF JSBS WITH6UT PtUt 
NUMBfiR 9F g0BS 
INITIAL MACHINE SIZE 

USED BY SYSTEM 

C©MM9N PART 6F USER MACHINE 

SIZE Qf $MT 

NUMBER 9F PRIVATE USER PAGES 

NTRIES 

MUST BE GT USER'S PAGES«2 
N9r 8F READ TRIE§ F8R RAD» 
NQf eF RADS 



NUMBER 9F i6K BANDS RESERVED F8R SWAPPING 
1$T SWAPPING AREAi MUST BE A 

©F lOOOBt 
ASS8CIATIVE MEM9RY 

NUMBER OF READ TRIES F8R DISC» 
N8, 0F U08S IN DISC QUEUit 



EQU ^Oi ENDF 



# BUMPER PARAMETERS 



NBurx 

NBUF 

NDDW 

BIN 

BIC 

BDN 

BPC 

BIP 

BJA 

NDXW 

NDXWC 



EQU 



EQU 
IQU 
EQU 



EQU 
EQU 

ir 

EQU 



3 

N8UFX 
255 

NOOW+2 
NDDW+3 

NDDW*6 
78 



eiSF llNpXWC EQU NDXN; 
NPXWCR IQU NOXWC^l 



NUMBER eF BUFFERS IN THE EXEC BU0CK 

TaTAL NUMBER SF DISC BUFFERSi 

LENGTH 6F DATA BL8CK 

INDEX BiaCK NUMBER 

INDEX CHANGED FtAQ 

DATA B19CK NUMBER 

CHANGED DATA FLAG 

INDEX B19CK PeiNTER 

INDEX BL^CK DRUM ADDRESS 

LENGTH 0F INDEX BLdCK 

-HA->^~NUHSf4^-ef=""'=tF^^ 
ENDF 



NDXWR 
ND8W 



BX5 
BBP 
3FP 
IXC 



IQU 
EQU 
IQU 
IQU 
EQU 
EQU 
EQU 



128 



NUMBER 0F W8RDS T& READ/WRITE 



NDDW+8*NPXWR 

NBUF«NDBW 

NDBWtNDXWR 

BXa4-NDXW»l 

8XQ*NDXW»2 

BX84NDXW 

♦ TS 8L8CK MAP 

DiT8P EQU 37777B»NPBS'5»1.17*1 



LENGTH 9F DISC BUFFER 
SIZE 8F BUFFER AREA 
INDEX BL8CK 0RIGIN REL T8 BUFF 
BACKWARD CHAIN W9RD 
F8RWARD CHAIN WQRD 
INDEX BL8CK CHECK W8RD 

1ST W8RD AFTER PRSYMS 



sMeriL IQU 

SMIFIL EQU 
SMBA 



SMDRN 

FBWRD 

RMAP 

PP 

PX 

PPB 

NFeRK 

FBAPR 



EQU 
EQU 
IQU 

IQU 

EQU 
EQU 
IQU 



DBT8P 

DBTeP+1 

DBT8P4-2 

DBT8P*3 

DBTSP-fi 

DBT8P4.5 

PBT8P*6 

PB*8 

PX*8 

PPB+1 

PBT8P + 54l-t-J7'^l 



SEC9NDARY MEM8RY 8UTPUT FILE 
SEC8NDARY MEM8RY INPUT FILE 
SEC8NDARY MEM8RY BUFFER ADDRESS 
SEC8NDARY MEMSRY BDN ADDRESS 
BUFFER AVAILABILTY BIT W8RD 
RAD BIT MAP F9R FILES AND SWAPPING 



P8INTER T8 PB CHAIN 
NUMBER 8F F8RKS C8UNTER 
FIRST BUFFER ADDRESS 



♦ M8NIT0R AND EXEC L&CATI8NS 
RAW IQU iOOB 
CAW EQU ^40008 



RAD ADDRESS 9F W 
CSRE ADDRESS QF W 



DAW 

RADSC 

CADSC 

DADiC 

CASET 

DASET 

DAEXEC 

RAEXEC 

# MACR0 

A 

8 

AB 

BA 

BX 

XB 

E 

XA 

AX 

N 

X 

C0PY 

K 

L 

M 

L 

li 



EQU 
IQU 

IQU 
IQU 
EQU 

S 
IQU 



ARMI 

ARM| 

ENTRY 
ENTCNT 
SITINT 
TDT 







^OOOOB 

300S 

BOOOOB 

340B 

lOOB 

600B 



DISC ADDRESS 8F W 
RAD ADDRESS ep DISC 
C9RE ADDRESS er DISC 
DISC ADOREiS 0F DISC 
C9RE ADDRESS QF SET 
DISC ADDRESS 6F SET 
DISC ADDRESS 8F EXEC 
RAD ADDRESS dF EXEC 



1 
2 

lOB 

203 

#08 

lOOB 

aOOB 

400B 

JOOOB 

20000000B 

D 



EQU 

EQU 

IQU 

IQU 

IQU 

IQU 

EQU 

IQU 

IQU 

MACR9 

NARG 

IQU 

IQU 
RPT 

EQU 
EQU 
INDR 
DATA 

ENDM 

IF 

MACRS 

lUSiF 

MACR8; 

ENDF 

MACRe LJENTCNT NARG; RPT ENTCNTjU (ENTCNT ) EXT 

IQU ENTCNT^U ENDRl ENDM 

MACR0 Aj IDA «pAU); STA BUK3i; ENDM 

MACRQ Ua(l)iW EQU *l RPT NTAPE; L(2) 




X 
< 

l.*D(M) 
#6000008*1 



ARMF 
D; AIR; 

1 
ENDM 



PaT QiDi ENDM 



l(3)»B**«L(l).W; ENDR; ENDM 



RMFF 
SMFF 
READ 



SMFF 
RHFF 

ECHR 

ECHB 

ECHVB 

TRP 

FRGT 
CACR 



LSI 
IIBL 



IP VI 

MACR0i ENDM 
MACR8; ENDM 

MACRB DiQ/l;Q<l) RSR; BRU #»U AIR; PQJ i0(3)/1008 
EaD* iOOOOBi DATA I8SDf*D( U/HOOOB (AND ) 37B*D( 2)/40Q00B (AND) 3*408 
P8T iD(|)(AND)i777B»40000B^D(2) (AND)37777B; RRF; RSRi BRU *•! 
RSE; BRU G(l); CETE; BRU G(i); ENDM 
ILSF I 

MACR8 Di DATA 234006B*D ( 1) *40Bj ENDM 
MACR8 Oi DATA 2300Q68+D (1 ) #408; ENDM 
ENDF 

MACR9 N;ECNRWP EQU EC;HRWD*400B*N( 1 ) tBi NECHR EQU NECHR'^1 
IF NECMR-21 DATA ECHRWD;ECHRWD EQU 0;NECNR EQU OJ ENDFi ENDM 
MACR8 N;ECHV3 EQU Hil)B$ RPT N(2)| ECHR ECHV 
EQU ECHVB+N(3); ENDRl ENDM 

MACR9 t;ENTCNT NARG; RPT ENTCNT;l ( ENTCNT ) EQU TRAP 
KENTCNT UENTCNT EQU ENTCNT^U ENDRj ENpM 
MACRe Oi D(2) 

IF D(Ul BRU PACACT; BRU PEST 
EISF U BRU PESTI BRU PACACT/ ENDF| ENDM 
MACR& DUISL EQU D(2)i RPT D(2); LDA DCD^^lLBl^n IRSH 6 
EQU 1LBL«1; ENDRi ENDM 



# EXEC ENTRY P91NTS 



EXECI EQU 

EXECP EQU 

8FFINT EQU 
# 



lOOOOB 
lOOOlB 
10002B 



DB 



MACRe DiENTCNT EQU D ( 1 ) ♦B#200B*D { 2 ) *100B 
♦ ♦<*00OO0OgB*D ( 4 ) ( AND ) |»40B+D ( 4 ) ( AND ) 2* iOOQOOOOB 

RPT D(3)J DATA ENTCNTjiENTCNT EQU ENTCNT + IOOB. 



ij ENDRl ENDM 
reRGT MACRa D;ENTCNT NARG; RPT ENTCNT; FRGT D{ENTCNT) 



ENTCNT E:QU |NTCNT»li ENQRi ENDM 



F8RGT 
F8RGT 
FeRGT 

reRGT 

F8RGT 

F0R3T 

F©RQT 

F9RQT 

FaRGT 

F8RGT 

F9RGT 

F8RQT 

F8RQT 

F8RQT 

FREEZE 

END 



CRXF#AJB#8PB#8RB#AMB#APBjAKB 
MBUFXjPNXFitPXF 

RTCNT#PNCNT|TCNT^LPCNT 

RTWT#PNWT/TXWT 

NTAPE/NLINK#NBUFX#NBUF 

NTRTRY#NTWTRY/NDTRY 

NDDW#N0XW#ND8W 

NFlLE#UMSZ|NTTYC|TTYEWh 

NPAC#NPPARj»NJ0BiNJ88J#NFQU#NSQU 

NP8P#NMEM/NSMEM#NCHEM#NUMEH 

NPUQ/NSEC#L2NSEC#NPRQ#NSeND#NSAM|NSMT 

DBB#ENTCNT 

SH|FIL#SMBA/SMDRN/rBWRD,SM8FlL 

BX9#BBP#iFP#BIN#ilC#8DNieDC/iIP/iIA 



3PAC 

« 

« 

• 

PACDMB 

PRM$K 

PIHSK 

ADM^K 

NADMSK 

SICMSK 

SGCI 

S6ST 



lOENT 7/Q2/61 
SCHEDULER AND SWAPPER 



DATA 

DATA 

DATA 

IF 

DATA 

ENDF 

DATA 

0PD 

ePD 



♦ ENTRY P9INTS 

IP 

ENTRY 

ENTRY 
ENTRY 
ENTRY 
ENTRY 

Indf 

INTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 

Intry 

ENTRY 
ENTRY 

ENTRY 



7777B 

77770000B 

37777B 

VI 

(N9T)37777S 

NSEC«i - 7 

l$500000B#i#l 

15|000008#J#i 



VI 

CUlNTC#GCRU#CiCRLl/QCRL2iQCRL3#DISCA 

RSYBTl|HPPACT#RLTS#ACTPUiPUPACP 

ARD#AWD#RDSYB#WDSYB#RST#NADMSK#PUDEAD/PWNI 
PUTIM#NPaPX#NXPeP 

RSYB2iMPDSC/HPWB 




FPUIST#PUCT^PUEPTR#PUBPTR/PUPAC 
SWAPjUPRLiPTRL# LABEL* CHRL/9HW^RSAM#dMR,SWMPTR 
RRL1#RRL2#RRU3#BRRL3#QUTAB#TIME*TTIME#PUCTR 
SACNTiSAMljSAM2jSAM3jSARl#SAR2jSAR3 



CGBl 



ENTRIES FR9M MDBG 
ENTRY RNAP 



# 

♦ iRS 7Z EXEC DISMISS 

♦ INPUT? SS03»QUEUE NgMBER. X»PACPTRt BfPTESTt 
EXOMS SKN PQg#2j BRM TRAPBJ IDX SS03 

RCN 22QB (CXA#C0X)j MUU »3j USH 23i ADD =G0 
RCH #408 (CXB#CAX)J MIN 0; BRU P0PDMS 

# DISMISS UNTIl INTERRUPT 

• BRS 109 

DMS UD8 "70000561 BRU P0PST 

♦BRS 45 (SIM QUANTUM eFL©) 

SQe M|N 0; LDB fU STB TTIME^ BRU PACQE 

* RILABIt PAC TABUES BEFBRE EXIT 

NXP9P ITA SSOlJ BRM MPPACTi UDA SSQll BRU XP0P 

NP9PX iRM MPPACT 

♦lYSPSP EXIT T8 REST9RE CENTRAL REGISTERS 

P^P)(. IDA SSOii IDB SS02; UDX SS03 

♦SYSP©P EXIT IF CENTRAL REG OK -• ABOLISH WHEN UMT PUT IN 

XP9P SKN TlMEi BRR Qi SKN TTIMEi SKN ACTR; SKN 0; BRR 

♦QUANTUM aVKRFLaN 8CCURED 

ITA SSOlJ $TB SS02| $TX SS03| MIN 
PACQE UDB PAQOMB 

QQEDMS UDX sQQEi SKN TTIMEi LPX *QSQ 
*P&P DISMISS ENTRY PQINT 
PIPDMS ITi PACLVLi LDA PACPTRl BRM QPUT (PUT PAC 8N QUEUE) 

LOB PACLVL (RICK UP DISMISS C9N0) 
PiPST LDX PACPTR; STi PTEST#2 
P8PINT LDA 0; ETR «50037777B; XMA PL#2; ETR .7700000B 

ADM PL#2 (SAVE START L8C) 
♦SAVE CENTRAL REGISTERS 

LDA SSOii STA PAj2j SKN XPBi BRU PAC2C 

LDX XPP; LDA SS02J STA PBj2 

LDA SSQ3J STA PXj2j LDX PACPTR 
♦SET UP PR8PER QUANTUM REMAINING 
PACaC LDA PQU#2; LRSH %2i ETR '7 1 RCH 402B (CAX^CLB) 

LDA TTIMEi SKG ••ll LDA QUTAB^S; LDX PACPTR; LSH 15 

XMA PQU#2; ETR «60077777B; ADM PQU#2 



PACQ0I UDA sSETTBl STA TJSB (SET ACCOUNT 16 SYSTEM) 
^KN ACTPyi BRU PACPUC 

# STAf^T SCHEDUIER 

PACG© UDX iQTIO; STX CLeCK3 (SAVE NEQ N8 FQR SDS C16CK ) ; -^Hf^i|00 

- WOA^ RRW3I- Ef R ¥77^mi m^-*moBj-^Rn mmR 

PACSCN iTX PACLVU (SAVE QUEUE); STX PACPTR (SET PACPTR)! 8RU PEST^l 

# MeVE PU FRSM Q£2E Td QTI IF NECESSARY 
PACPUC LDX fQQEQ 

PACPUB $TX PPREV; UDA PNEXT#2i CAX; SKE PUPACP; BRU PACPUA 
PN^XT#2; LDX PPREV; LDB iQQEQ; BRM QQET 
PUPACP; UOX iQTn BRM QPUT; BRU PACG9 
fli BRU PACPUB; BRU PACGe 



PACPUA 
♦ SCAN 
PEST 



STX 

UDA 

UDA 

SKG 
PACT 
LDX PACPTR; SKN PNEXT#2; gRy PACNXQ (NEW QUEUE); STX PPREV 

LDX PNEXTia; STX PACPTR 

LOA PTEST#2; LRSM 15; CAX 

LDA CACLSTi2; STA T; IPX PACPTR; UDA* PTEST#2; BRU* T 
♦ACTIVATE PRBQRAM 
PACACT LDX PACPTR; BRM PQET; BRU PEST (READ ERRdR) 

LDA i70000lB; XMA PTeST#2; STA PPTEST (SAVE PTEST FQR INT SIM) 

LDA PN|XT#2; LDB PACUVl; LDX PPREV; BRM QGET (GET PR0G dFF QUEUE) 

LDX PACPTR; I^DA PQU#2; LRSH i5; ETR i77B; STA TTIME 
♦SET UP TIME#TT|M^/ AND ACTR 

UDA «NSQU; STA TIME; IDA »i; STA UMTF 
♦CHICK F9R INTERRUPT AND SET UP START leC (0) 

L,DA T; IR$H 15; ADD lACTUST; XMA T; BRU* T 

UDA Pl#2; STA 

R8V; ICY l; USH X (SET UP QVERFLQW) 

CUB; STB EXECl; LDA PTAB/2; IDB *•!; SKA X2; STB EXECl 

UDA PA#2; C8PY 8#X; SKN XPB; BRU PAC2B 

LDX XPi; LDB PB#2; LDX PX#2 
^^Hrr-^r^Bl BRU* 

LDA PNEXT#2; SUB "PNEXT; CAX; SKE fQSQQ; BRU ♦♦S 

LDB f i; STB ACTR;VBRU PACSCN 

A PR86 INTERRRUPT 

LDA PPTEST; ETR »37Bl LDB PLi2 

SKN PL#2; LDB SBRSRT; CAX; LOX 200B#6; STB* 0#6 

CXA; ETR ADMSK; ADD »4000p001B; STA 0; LDX PACPTR; BRU PAC8VF 
♦ACTIVATI0N TEST R8UTINES 



PACSRT 
PAC8VF 



PAC28 
PACNXQ 

♦CAUSE 
PACINT 



CACyST CACOl CACU CAC2^ Q CAC3 

CAC4J X PACACT; C CAC6j PEST 
PgSli CAC9J CACIO 

♦ SPECIAL ACTJVAT18N RQUTINgS 

ACTtST &RU PAQSRTl BRU PACINI 



CACO CACR 0| (SKG ^0) 

CACi CACR Xi (SKQ §0) 

CAC2 CACR OMSKG fj) 

CACI CACR liCSKQ TTYEMG) 

CAC6 CACR Xi (SKG REAU) 

CAC4 PRU» PTEST^a 

CAC9 CACR 0#(SKA X2) 

CACIO CACR Xi (SKG f«U 

• 

# 

PACIVL im 

PPREV ZR0 

PPTEST |;R8 

FPliT 2R8 
« 



# PHANTfH USER 

# 

PyOMS CIX; CtAJ STA XPB; UDA ?«*U 3TA ACTPU; EIR 
IDA REAti IDS PUATj S8RS 72 

* MAG TAPE CLEANUP, CHECKS EVERY 3 SECQNDSt 

LDA BIK3U SKG «0) BRU PUGt3 
LDA i»ll XM.A* 31Bi SKE w«ili BRU PUQ8 
^8RS U,4 (MTOHj BRU PUG8.0 
pyG03 STA* |_1B . ■ ; . ^' ■■'■-'' 

# PfUi scheouCe'r 

PUG9 CdA PUCTRI DIR; SKG §0^ BRU PUDMS; EJRi UDX fPUBPTR; STA PUCTRl 
PUSCN STX PUCPTR^ LDX 0/8; IDA 2^24 RSN 12; STA PUPAC 



* SET 
SPURL 



BRM CHRL 
SPURL 



CLA; LCY XZi STA Fill} IDA 1#2| iTA PUTST 

LR8H 15; i:TR f77i; AXCl BRU» PUaST/a 
Py RELABEULIN3 BACK 

^R8; BRM MPPACTi CUA; STA jeS; LDX PACPTR; 

iRU ♦•2; UOA RRL3; ETR »77B; STA RUTS; BRR 
NPUae iRM SPURL; BRU PyG0 
NPUNXT PRM SPURL 

# CAN»T PR0CESS THIS ENTRY 
PUNXT LDX# PgCPTR; CXA; SKE PUEPTR; BRU PUSCN 

UDA PUCTRl; OIR; SKE PUCTR; BRU PUGQ; LDX 

# SPECIAL REACTIVATION TEST 
PUAT 4 #+l; LDA PA#a; ADD sl$0; SKQ REAL; &QU PACACT 

LDA PUCTR; SKG .Q; BRU PEST; LDA »PUQ8;^STA PL#a; 

# PH ANT9M USER ACT I VAT I ©N TESTS ''^'~"< 
PUCLST DATA PyD|e#PURBT#PUTRTi^#PUiRTW^PUCRTW,PUFK 

DATA PULe#PUT|M#PULPTW 



»3i BRU PUDMS+i 



8RU PACACT 



IF V5 

# TIST PROGRAM INTERRUPT TIME 6UT 

PUTIN LDX# PgCPTR; LDA REAL; SKG a#2; BRU PUNXT 

LDA 3f2i CAB; ETR f77B; CAX; LDA WERISj2i SKG s'l 

iRU PUACTl; CBA 

RSH i2; MRG PLMSK; STA PUTIMJ; CAX 

LDA PIM#a; SKA f3; BRU ♦*2j BRM M6NCR 

SUB il; STA P|M,2 

LSH 6; ETR «37B (iNTf NQ,); C8PY AX/B 

LDA *4000000B; RSH 0#2; LDX PUTIMl; BRM HR 

BRU PUACTl (N8 INTf); BRU PUACTl (INT.) 

PUTIMl ZRa 

« REMave EXTRA PU ENTRIES 

PUL9 BRU PUACTl 
ELSF 1 

♦ TEST PATA»SET TIME 
PyPHU LDX FILE; LDA 

ENDF 

* TEST IF TAPE READY 

IF FCB 
PUTRTW LDX FILE; LDA 
ELSF 1 



euT 

REAL; 



SKG TTYTlM^a; BRU PUNXT; BRU PUACT 



FA#2; ETR f77B; C9PY AX/B 



$RU #+ai BRU NPUNXTj BRM MRPACT 



PUTRTW lOX FIUEl UDA FC#2; RSH 15i ETR f77B* CAX 

ENDF 

BRM MPWB 

|XU TRTW#2; 
# TEST N^BUFFIR 
PU8RTW CIA; SKE Bl,K3ia BRU NPUNXT 

IF Fca 

LDX FILEl IDA fCi2l UR5H 15i 

LPX FIUE; UDA FAi2| LRSH 15; 
ENOF 

LPA PMTP#2i ADD ?20000000B-NCMEM; STA PMTJ8B; 
LDX Rl3i2; BRIi SWAP; BRU NPUNXT; BRM LABEL 
IDA RRU3; £TR »77B| STA RLTSI BRM MPWB; BRU PUACTl 
PUACTW LDX FIUI; i,DA-57777777B; ETR FQ/2; STA FD#2 
UDS FP|2; STB DEV 
LDA FC|2; ETR ApMSK; STA BUFF 

LDB PUTST; BRM ED; BRU NPUG9; BRM M8NCR; BRM MQNCR 
CARD READER READY 



ETR a77B; C9PY AX^Bl STX JOB 

C8PY AX#B; STX jee 

CLA 



# TEST 
PUCRTW 

PULPTW 

# TEST 
PUDIQ 

# TEST 
PURBT 



PURBTA 
PURBTl 



iRM MPWB; EXg CFTW; BRU 

iRM MPPACT; BRU PUBRTW 

PRT; BRU NPUNXT; CLA; SKE 

IRM MPPACTI BRU PUBRTW 

IF DRUM FILE READY 

LDX FILE; i,DA FD#2; SKA fDBB; 

IF RUB©UT APPLICABLE 

LDA PUPAC; LRSH 3; STA TJPIX; LDX FILE; 

SKN TTYASG^S; SRM MONCR; LDX TTYASQjg 

LDA iPyRBTA; BRM SCFK; STX PUPAC 

BRU PUACT 

ZR9; LPA PIM#2; SKA XI; BRU PURBTl; BRR PURBTA 

MRG X2; STA PIM#2; BRU PUNXT 

IF V5 

TTYASQ#2l iRU PUACTl; BRM M8NCR 



PUACT; EXU CRTW; BRM M0NCR 
BLK31; BRU NPUNXT 

BRU PUNXT; BRU PUACT 

SKG »l; BRU PURBT2 



PURBTg IKN 

ENDF 
# TEST IF PfUd F9RK PaSSlBLE 
PUFK LDA FPLST; SKG -0; BRU PUNXT 

LDA PUTST; STA PUFT^^l; LDA FILE; 

LDX PUPAC; LPA PUFR/2; STA PUFT; 



STA 
BRU 



PUFT43 
PUACTl 



PUFTA IRB PUFT^*> 

♦ ACTIVATE P.y. REQUEST R0UTINE 

PUACT UDX PyPAC; BRM PGET; BRU PUNXT (READ N© QQQO) 
PUACTl L,DX PUGPTR; DIRj UDA FPUL-STi XMA* 0/2 

XMA 0#2; STA FPUUSTi SKE PUEPTR; BRU ♦*2i STX PUEPTR 

SKR PUCTR; MIN PUlIMi EIR 

LDA PUT$T| IRSH i5i ^TR f77ii CAX; BRU* PUCSET#2 

# PHANT8M USER REQUEST PR8CESSING PREPARATI8N 

PUCiET inB PUDieSi :^R8# PUTSTI data PUACT^#PUACTW,PUACTW/PUFP 
DATA "-Pt^Nmr-rlW^irpiPUACTW 

# CONTINUE DRUM BRS PJ... -J \'.y^. -^^ 

PUDieS l»DX FILEi I^DA XNai APM FD#2i B'RM MPDSCj UDA FC#2 
ITR ADMSKi STA BUFF; CAXi 8RR PUTST 

# RUN PfUt F8RK 

PUFP t,DA PUFTAi S8RS 9; BRU PUNXT 
PUFR DATA PyMSQ 

* PRINT MESSAGE 

PUMSG ETR ADM$K| Myu 1,3; USH 23i STA PUFi; SKR PUFU 

PyMC SGCI PWll HLT; SKE ^l7Bi BRU **2i SBRS iO; LDB PUFL 

SKE p^i BRU PUMCli UDA *155B; S9ST SS03; LDA »15aB 
PyMCl S8ST SS03i STB PQFlt BRU PU^C 

» MAKE Pt Uf ENTRY 

♦ INPUT? A»J#2» Bi2#2f X«|^af 18W 6 BITS 9F XiTTY N8« 
« ©UTPUTJ XiPy PTR. 

EPU IR8i XMA# FPUlSTi SKR PUUIM; BRU **2; BRM MgNCR 

MIN PUCTR; XMA FPUUST 

STX PUXSVj CAXi XMa# PUEPTR 

STX PUEPTRj XMA 0*2; STA l#2l STB 2#2 

XMA PUXSV; STA 3#2| XMA PUXSV; EiRl BRR EPU 
PyXiV ^RQ 
# 
# 

IF V5 
PUCT BSS NPyQ*4 
$|PUCT3 EQU PUCT+NPUQ#4*4 
*EPUCT EQU PyCT*NPUQ#^ 
$iPUCM3 EQU PUCT*NPUQ»4«'^ 

ELSF X 



pyCT BSS NPUQ#3 
$EPyCT3 EQU PgCT4.NPyQ»3*3 
*|PUCT EQU PUCT*NPyQ#3 
$|PyCM3 EQU PyCT*NPyQ«3i'3 
|NDF 



FPULST im 
PyiPTR IRQ 
pyCTR IRd 
PyCTRI IRQ 
pyCPTR IRQ 
PyEPTR IRQ 
PyPAC 2R8 
PUDEAD 6 
PUFL 
PyPT 
PUTIT 

pyiiM 



PyPACP IRQ 
ACTPy DATA < 



iST FREE ENTRY 

PTRt Te 1ST ACTIVE ENTRY, LAST ENTRY peiNTS T8 PUBPTR 

N0I SF ENTRIES, 

CaUNTER DURING PU PRaCESSING. 

INOt PTRt T9 ACTIVE ENTRY DURING PU PROCESSING. 

lAST ACTIVE ENTRYt 

PACPTR 0F ENTRY BEING PR8CESSED BY PUf 
6 NUIU PU ENTRY 
IRQi DATA 137777B 
©SS 7 
|Ra 
IRQ NPUQ COUNTS N0t Qf PU ENTRIES, 



PACPTR F0R £iU^ 
1 ACTIVATE P\J SWITCH 



# mi USER T8 CtRI 



PCiETl 



IRQi STX PypAC; CUA; STA XP8J SKN PUPAC; BRU PGETl 

UOA PTA8#2J IRSH 15; ETR s778; STA J0B 

QAXi ADD lETTBi STA TySB (SET yp TIME CHARGING) 

LDA PMTP#2i ADD i20000000B*NCMEMi STA PMTy8B (SET yP PMT PTR ) 

LDA TTN9#2l ETR i778l STA UTTY (SET UP USER TELETYPE) 

LDX pupacj BRH cmrl; BRR PGET 

LDA RRU3J ETR f77B| STA RLTSi LDX PUPAC 

LDA PTABi8i SKA XU BRU ^'^2} BRU PQETl (NQ TS BL9CK) 

LDA P|M#^| ETR f70^; LRSH 3; MRQ Xi^i STA XPB 

MIN PGETi BRR PGET 



RMT BSS NMEM REAL MEM0RY ASSIGNMENT TABLE 

$ERMT EQU RHT4NMEM 

RMC BSS NMEM REAL MEMORY LSCKUP TABLE 



$|RMC EQU RHC^NH|M;$ESRMC EQU RMC+NSMEM 
RMA BSS NMlM REAL MEH8RY AGC TABLE 
$ERMA EQU RMA+NMEM 



* SWAPPER- CALIID WITH REUABEIUINO IN A#B|X 

* m SKIP EXllm READ ERR9R dR- INSUFFICIENT MEM8RY 

* SKIP EXIT. REAL RELABELLING IN Aj^/X 

» THE SWAPPER FIRST UNPACKS THE RELABELLING REGISTERS^ 

* THEN DECaOES THE BYTES PRODUCING READ C6MMANDS 

* 0R INCREMENTING THE LSCKt IF THERE ARE N0 READ C9MMANDS# THEN IT 

# C0HPUTES THE REAL RELABELLING UNL^CKi ALL PAGES REFERENCED* 

* AND EXITS SKIPPING. OTHERWISE IT BUILDS A LIST 8F 

« WRITE C9MMAN0Sf THE SWAPPER THEN PUTS 9UT DRUM caMMANDS, 

# IT WILL ASSIGN A BLaCK Te A READ# AND READ IN A PAGE IF 

# THERE IS AN aPTlMAL READ CaMMAND. STHERWISE IT WRITES auT THE 

# ePTIMAL FREE PAGEi AND MAKES THE BL8CK FREE FiR READING, 

# WHEN ALL caMMANDS HAVE BEEN CeMPUTEP# THE DRUM IS 

« $TART^D| AND THE REAL RELABELLING iNPaRMATiaN IS CeMPUTED. AFTER THE 

# SWAP IS C9MPLETE/ THE SWAPPER EXITS SKIPPING. 
SWAP ZR8; M|N SWAPC; STA SWRU STB SWRE; STX SWR3 

LDB jaB; LSH 3i; C8PY ABiXB; STB SWR# 

LDA SWRU LDB SWR2| LDX SWR3I SKN SACNTi BRU SWPO 

LDB SWR4I LDX SACNT 
SWP22 SKE SAM1j2| BRU $WP24fi LDA SWRgj SKE SAM2/2; BRU SWP26 

CBA; SKE SAM3#2; BRU SWP26 

LDA SARlj2i LDB SAR2|2I LDX SAR3#2l MIN SWAPJ BRR SWAP 
$WPi6 LDA SWRl 

SWPg4 |RX SWP22I LDB SWRg; LDX SWR3 
SWPO BRM DCRLl SKN DCRT3i BRU SWPl 

♦ CaMPUTE AND RETURN REAL RELABELLl^^G IN A#B^X 

SWP38 BRM PTRLl LPA SACNTi SKG ««nSAM; BRU SWP37i SUB «1; STA SACNT 

SWP39 STA SAPTR) XXA^ ETR PRMSK; STA SAR3#2 
STB SAR2#2J LDA SWR4f| STA SAM3#2 
LDA SWRli STA SAM1,2J LDA SWR2J STA SAM2j2 
LDA SWplJ STA SARl^Si LDX SAR3#2; MIN §WAPj BRR SWAP 



SWP37 IDA SAPTR; SKG c»N$AM; CLAj SUB ?li BRU SWP39 
SWPl LDA fSWTSJ STA SWT6^ BRM RSAM 

* FINISH DECeDING USER RELABELLING 

LDX f»NSECl SIX SPT4.NSEC#2| BRX ♦•l; LDX ■•10 

• LQCK PAGE QR SAVE DRUM C8MMAND 

SWP3 LDA SRTE|2; SKA X4| SRU SWP^i ETR *37Bj C9PY XB/AX 
MIN RMC#2 CL9CK PAGE); LDA RMa,2| MRG X2j STA RMA/2 
CBX; BRX SWP3; BRU SWP2 

# 0N DRUH4 CHECK FaR DUPLICATE READ 

SWP# ITX iWtl3J LDX SWT6i STA SWTU«SWT5/2; CAX 

LDA 0/2^ ETR 11777400; LDX »SWT5 
SWP<*0 XXA; SKE SWT6; BRU SWP^l; STX» SWT6 (NaT DUP ) 

CXA; RSH 6; CSX; RSH 8; CXB; LSH li ETR SECMSKj CAX 

LDA SWT6J ADD §SAT»SWT5i XMA SPTj»2| STA* SPT#2 

- c .- MIN SWT6; LDX SWTi3; BRX SWP3; BRU SWPf ' '""" " 

SWP41 XXA; EAX 1j2; SKE •1#2; BRU SWP40 

LDX SWTi3; BRX SWP3 (DUP) 

# CHECK F^R SUFFICIENT MEM8RY AVAILABLE 

SWP2 LDA SWT6; STA $WT7i SUB fSWTS; STA SWT12; CNA 

LDB X4; LDX ?!NSMEM»NMEM 

IKB RMC*NMEMi2; ADD fl; BRX #•2; SKG »«li BRU SWP5 
» SIT UP BLOCKS r9R WRITE# RELEASE READ»8NLY BLOCKS 
SWP<^ iKR SWTIi; BRU t*2; iRU SNPlI; LDA XX; LDX iNSMEM^NMEM 
SWP7 SKN RMC+NMEM#2; BRU $WP8; SKG RMA^-NMEM^g^ BRU SWP8 

LDA RMA*NMEM#2; STX gWMPTR 
SWP8 PRX SWP7; LDX SWMPTR; LDA XXJ STA RMA<i'NMEM^2 

SKN RMT*NMEM#2| 8RU §WP6 

LDA RMT*NM|M#2; SKA X2i BRU SWPIQ {READ-0NLY) 

LDX $WT7| iTA $WTU»SWT5|2; XXA; LDX 0i2 

CePY XA#AXiBl STA 0#2 

RSH 6; STB SWT13; RSH 8; LDB SWT13; LSH 1; 

ETR SECMSK; XXA 

ADD sSAT»SWT§; XMA SPT#2; STA# SPT#2 

M|N SWT7; PRU SWP6 

* RELEASE REAp.QNLY PAGE 
SWPIO CLB; STB RMT+NMEM/2; CAX 

LDA 0i2; MRG X#; STA 0#2; BRU SWP6 

# N9T ENOUGH/ RELEASE L^CKS AND EXIT 
SWP5 LDX flO 



SWP*6 I.DA SRTE#ai SKA X4i BRU SWP^47 

|;TR i378| XXA; SKR RMC#2^ N0P^ CAX 
SWP47 8RX SWP^6j BRU SWP50 (FAILURE:) 

♦ FIND CURRENT DRUM PesiTIdN 
SWPia CUB; SKN NRCL; BRU SWP35 

LDA RDRADj add «U ETR RADMSK {1ST WRITE RAD) 

USH X3i STA WRRADi R9H 3^ MRG PINE0D 

STA »*U E9D Oj PIN TSWPl; LDA TSWPl; HRO WRRADi BRU SWP36 
SWP35 tDA ERCtl SKE «RADQ; BRU #4^21 UDA iRDQU; SUB »4; CAXJ IDA 0#2 
SWP36 URSH 6j CBX; RSM 8i ETR RADMSK; CXB 

USH li STA SWT12 (8PTIMAU DRUM peSITIQN) 

UDA SWT7; SUB tSWTB; STA SWTjai ADM PAGES 
« CHECK F8R REMAINING COMMANDS 
SWPiS CUAl SKE SWTIO; BRU $WP14; MIN DSWAPC 

iRM RST; BRU SWP38 (D8NE)i BRM PTRU 
SWP^O UDA SWRU UPS SWR8; UDX SWR3i BRR SWAP 

# FIND 9PTIMAU COMMAND 

SWPt# UDX SWTtS; SKN SPT#2^ BRU SWPU 

SWP17 UDA SWT12J ADD pU ETR SECMSK; STA SWTlSj BRU SWP15 
SWPJ6 UDA SPT#2; ADD ^SWTS^SAT* 1; 5KG SWT6; BRU SWPi9 
^» REM8VI COMMAND FROM STACK 

SWP20 UDA* SPT#2; XMA SPT/2; ADD •SWTSeSAT; CAX; STA SWTH 
ADD »1; SKQ SWT6; BRU SWP27 (READ)i BRU SWP48 (WRITE) 

♦ ASSIGN AND U»CK BU8CK| 8UTPUT READ* UPDATE PMT/SMT 
SWP19 UOX iNgMEM.NMEMl SKN RMT*NMEMj2; BRU SWP21 

8RX *«2; BRU SWP17 
SWP21 CXA; ADD wNMEM| STA SWMPTR/ UDX SWT12; BRU SWP20 
SWPe7 UDX SWTU»SWT5/2; BRM 8MR; BRU SWP23 

# 8UTPUT WRITE# REUEASE BU8CK# AND UPDATE PMT/SMT 

SWP#8 8RM 8MW; UDA* SWTU; ETR i37B; AXCi STA RMT#2; STA RMAj2 
U^X^WIiliLOX^HJ^^ UDA 0#2; MRG X4; STA 0,2 

SWP23 r^n SWTIO; BRU SW^S \^ ^^ ^ ^, 

BRM M8NCR IS ^^ LPA 5^ri?> BOff a/J j^^ Su/T/2 

• UNPACK REUABEUIING REGISTERS 

♦ INPUTI REUABEUING IN A#©/X 

# 8UTPUT? AUU REGISTERS CUQBBERED 
UPRU ^R0; STB SWT3; U^SM 18| STA SRT 

CUA; UCY 6; STA SRT-i-1; CUA; UCY 6; STA SRT+2 

CUA; UCY 6; STA SRT-^S; UDA SWT3; LRSH 18; STA SRT + 4 



* PACK 

PKRL 
PKRll 

PKRy3 

pmiz 

♦ PACK 
PTRtl 
PTRia 
PTRL3 
PTRU 



6i STA SRT-^6 

6i ETR »77B; STA SRT*8 

STA DCRT3I BRR UPRL 



wmiki BRM PKRl; STA 
BRM PKRLJ STA SWQ2 
BRM PKRUJ ETR PRMSK 
SWD2; BRR PTRl 



CIA; LCY 6; STA SRT+5; CLAi ICY 

CIM ICY 6; STA SRT*7i CXAj RSH 

ClAi LQY 6i STA SRT*9; LDA p»1i 
RElApELING W9RD 

IR9 

ZR9; STA PKRLl 

LDA SRTE#2j C8PY XB#AXi $KA X4| BRU PKRL2; ETR »37B; XXA 

$KN DCRT3J SKR RMC|2| NQP; CBX 

RCY 6J IDA PKRU4J ICY 6; STA PKRl,4; BRX PKRUU BRR PKRl, 

LDA 0#iJ CBXi 8RU PKRL3 

T9TAU REUA3ELINQ 

UDA SRT*4i2 

UDA $RT*8/2 

LDA SRTEi2 

IRQ} IDA PTRLiI LDX 9mkl BRM PKRL; STA SWDl 

LDA PTRLSi LDX ••<*; 

LDA PTRL3; LDX #.2; 

CAX; LDA SWDl; LDB 

# DEC9Df RELABELLING 
DCRL ZR©; BRM UPRL; LDX p.io 

DCRLl LDA SRT||2; SKE fOi BRU DCRLa; LDA «^08 

# ST0RI RE$ULT|NG SRT ENTRY 

DC:RL9 STA |RTE#2; BRX DCRLi; BRR DCRL 

# STBRE PMT/SMT ADDRESS IN SRT 
CePY XB^AX; SKQ •NCM^M-lj BRU DCRL3*l; EAX* PMTJ9B 
LDA 0#2; SKA X4; BRU DCRL5; SKA XI; BRU DCRL3 
ITR i77Bj CBX; BRU DCRL9 
CAX; LDA SMTiai SKN SMT#g; BRU DCRL^ 
C8PY XA#8Xi ADD DCRL8; MIN DCRT3; BRU DCRL9 

DCRL5 C9PY XA#BX; MRQ X4j MIN DCRT3; BRU DCRL9 
DCRL8 2R9 SMT^S 

# RESET SAM 

RSAM IH&i CLA; STA SACNTl STA SAPTR; LDX sMSMEM^NMEM 

RIAMl LDA RMA*NMEM#2; RSN J; STA RMA*NMEM/2; BRX RSAMl; BRR RSAM 

# OUTPUT MEM&RY WRITE 

8MW |R9; LDA Q#2; CAX; ETR sl77700B; RSH 1 
XXA; LSH Hi ETR fJ74000B 
CXB; LDX «*^OQOB; iBRM RTW; BRR dm 



DCRLS 

DCRL^ 
D^RL3 



# 8UTPUT MEMeRY R^AD 

* INPUT? X»PMT ADDRf# SWMPTRtPAGE NUHBERt 

©MR ZR9; sTx mnx 

IDk 0#e; ETR b37B; STA 8MR2; CXAj ETR ADMSK 
fPMTMU STA 9MR2 

Q#g; ETR »377777#0&; MRG SWMPTRi STA 0#2; CAS 
i37B| XXA; ETR ADM^K^ MRQ X4| SKB i40B| MRG X2 
RMT/a; IDA X2jl STA RMA#2 

SKE 8MR2; BRU #*2l BRR QHR 
Bmil LDA SWMPTR; LSH lU ETR «174000B 



SMRl 
QMRa 
# 

♦ SET UP 

* INPUT! 
lAilL 



8KG 
LDA 
ETR 
STA 
CIA 
LDX 
IDX 
PRM 
IRQ 



0#2l 
RTQ; 





XXAJ ETR il77700B| RSH 
t»DX RTXSai i,DA i3j ADM 



1; cePY AB#XA; 
3#2; BRR ©MR 



LDX S4000B 



REAU RELABELING. KEEPS PAGE 6 RELABELLING FR8M RRL3. 
I REAL RELABELING IN A#B#X 

imt STA RRLli STB RRL2; CXAl SKA «3700B| BRM MQNCR 
ITR «77B| XMA RRL3| ETR i770QB4 ADM RRt,3 
LRR1# P0T RRLll imZi PdJ RRL2| LRR3| P0T RRL3i BRR LABEL 

* SETS )JP RELABELING FQR A F8RK. SAVES RRL3 IN BRRL3 

* INPUT? X*PACPTR 

* SKIPS IF SUCCESSFUL 

CHRL IHQi LDA RLli2i LDB RL2#2; LDX J8B| LDX RL3#2 

iRM SWAP; BRR CHRLl STX BRRL3J BRM LABELJ MIN CHRL; BRR CHRL 



DCRT3 ^R9 

SWRl IRQ 

SWR2 IRQ 

Sm3 IRQ 

ismi^ IRQ 



SWDl 
SWD2 
SACNT 
SAPTR 

rSAMi 

jSAMg 

LSAM3 

SARI 



PSEUD9-RELABELLING INPUT 



SWR3 4 J9B 



;^R8 

|R8 
ZR8 
ZR9 

Ies 

8ES 

PES 
BES 










NSAM 

NSAM 

NSAM 

NSAM 





REAL SWRl 

REAL SWR2 

SAM C9UNT» COUNTS NEGATIVE 

SAM P9INTER 

SWAPPER ASS9CIATIVE MEM9RY 



SAR2 
SAR3 
SRT 
SRTE 

$WT3 

SWT5 

SWTi4 

SAT 

SWT6 

SWT7 

swno 

SWTll 

swna 

SWTi3 
RPRAD 
WRRAD 

SWMRTR 
SPT 
TgWRl 
RADMSK 

mil 

RRLE 

RR13 

BRRL3 

RUTS 

RIPACT 

RIDSC 

RLWi 



iES 
iS$ 

|R0 
8SS 
BSS 
iSS 
|R9 

|Re 

ZR9 
IRQ 
IRQ 
IRQ 



NSAM 
NSAM 

10 TABLE FOR PECaDiNG PSEUD8.REIABELLING 

« C8NTAINS RRL BYTES 9R POINTERS T9 PMT/SMT 



T8 BE READ 
F8R ENTRIES 



DATA 

IRQ 
BSS 
ZR0 
DATA 

2R9 

ZRd 

ZR9 
ZRQ 
^R9 
DATA 
DATA 
DATA 



20 PHT/SMT ENTRIES 

20 PMT/SMT ADDRESS 

20 PaSITlON STACKS 

riRST WRITE CeMMAND 

END 9F WRITE caMMANDS 

C9MMAND C9UNT 

9PTIMAL READ/WRITE 

CURRENT DRUM peSIT|9N 

TEMP ST9RAQE 

N9f 9F READ RAD 

N8i 9F RAD IN THIS S^T 9F WRITES 

0^i02263 PIN E8D 
P9INTER F9R SCAN F8R FREE MEM9RY 
NSEC P9SITI9N STACK PaiNTERS 
RAD SECT8R NUMBER* 

NRAD»l RAD MASK 



8R WRITTEN 
IN SWT5 



CURRENT C9NTENTS 8F RR3 
I RR3 F8R RUNNING F8RK 

TS BL9CK REIABELLING F8R RUNNING F8RK 
600B PAC TABUE REAL RELABELLING 
lOOOB DISC REAL RELABELLING 
liOOB W BUFFER DRIVERS REAL RELABELLING 



* R9UTINES Te RELABEL EXTRA M9NIT8R PAGES, 

* PAC TABLE RELABELING 

MPPACT ZR8I LDA RLPACfi MRS RLTSi STA RRL3 

LRR3; P8T RRL3| IRR MPPACT 
« 

* DISC RELABELING 

MPDSC ZR8; LDA RLDSC^ MRQ RLTSi STA RRL3 



URR3I Pe? RRi,3| m^ MPDSC 
* 

* W BUFFER ReyriNE REUABEUING 

MFW© ZRQi UOA RUWi; MRS RUTS; STA RRL3 
URR3; P9T RRU3^ BRR MPWB 

IF VI 

# 

# RIAD 0R WRITE BN DISC (BE^li ^E+2) 

# INPUTI AiC0RE ADDR. B-DISC ADDR. X-W9RD CaUNT. 

# FLAQS KEPT iY J^B IN JJm» Xa IS BUSY BITt 

» 0P C9DE FIEUD ISI 00 START READ* 01 SPERATISN IN PROGRESS/ 

* 10 READ DaNE»Ne ERRBRS* 11 READ D8NE«ERReRS» 
AWO UDA f778i LDB ?DTW; BRU ARD4 

ARD LDA s17B; UDB »DTC 

ARD# §KA SS03i BRM TRAPB DISC B^eCKED 19 REQIUREMENT 

LDA SS03; Sm lOl BRH TRAPB; SKN PQU#2; BRM TRAP© 

STB ARDl; I^DX J9BI LPA TTN9#2 

SKA fSOOOOOBJ BRU ARD2 cgSB FINISHED); IDA SSOl 

ETR ADMSK 

STA T; ADD SS03; SUB »i 

ETR NADMSK; SKE lO; BRM TRAPB; LOA T; CAX; LDB 0#6 

BRM DTH; IDA SS02; SKQ RUDMSK; SKG wmH BRM TRAPB 

CABI BRM MPDSC 

UOA T; LDX SS03; BRM# ARDl; tOA «20100000B 

IDX sJOB^ APM TTNe#2; LDA «400000B; LDX DTXS2 

ADM 2#2; LDB UQB; LSH <*0; ADM 1,2; BRM DTS 
ARD3 l,DA iTTNe; ADD ^UOOOOOB; ADD U9B; CAB 

^RU NI9QDS 
ARD2 SKA f20000000B; BRU ARD3; CAB; ETR «778; STA TTN9^2; CBA 

^KA slOOOOOBi BRU **Z (ERR0RS); BRy P8PX 

LDA ilOOOB; LDX PACPTRl BRM IIR; BRM TRAPB; BRU P8PINT 
ARDl gR9 

♦ RIAP ^R WRITE 2K 9N DISC (BRS BE+9#BE+10) 

♦ AVAILABLE 9NLY Te EXECt THIS BRS SHQULD N9T BE GENERALLY USED. 
WDSYB LDB ?DTWl BRU RDSYi+1 

RDSYB LDB fDTC; STB RDBRSl; SKN PQU/2; BRM TRAPB 



RPBRSI 

« 

♦ READ 

wsvp 

RSYB 

R$Yi2 

RSYBTi 



UDA SSOll ETR i34000e 

CAX; tDB 0#6l BRM DTH 

iRM MPDSC 

LOB SSOa/ l,DA T; LDX s^OOOB; 

BRM DST; BRU NP8PX| BRM NTRPB 

zm 



BRM* RDBRSi 



8R WRITE ZK QN RAD (BRS lO^jiOS) 

UDB fRTWj BRU RSYB^l 

LDB sRTCl STB RSYBTll ETR ii3^000B; SKN PQ\J,2i BRM TRAPB 

CAX; IDB 0#6i BRM DTM 

UDB SSOHl LDX f^OOQBi 8RM# 

BRM RST; BRU PdPXi BRM 

ZRe 

ENDF 



RSYBTi 
TRAPB 



IF VI 

# START RAD AND WAIT 
RST 



$RSTE 



IRQi IDA RUERR^ STA RSTE 

BRM RTSi SKN NRCLr BRU •*! 

UDA RUERRJ SKE R$TE; MIN RSTJ BRR RST 

im 

ENDP 



« 
« 

QUTAB 

T|M| 

TTIME 

UMTF 

CLaCK3 

♦ CL8CK 



CU9CK RaUTlNES AND TABIES 

eF CL9CK 



NFQU NUMBER 
SH9RT 
U8NG 



ZR9 
ZR^ 
2R0 
ZR9 
INTRRyPT R0UTINE 



AVGi TIME 



CLINT ZR9I MIN REAU MIN# TjeS; SKN 

BPT4 
CUINTC BRM M9NCR 



CYCLES IN QUANTUM 



*0^7 MS 

CLINT; MIN STIME 



CLeuT 

UMTN 
CKOI 



LPT 
IND 

eKX 

8K 
$A 
SX 

CeUNT 

* USER 
TRAPT 

TRAPTI 

* FAST 

pwri 

PWFIl 
» 

* P8W|R 
PWNI 
P©FFA 
PeFFB 
P8FFX 

PWFI 



iKR 

SKN 

SKR 

N8P; 

XMA 

iTA 

iRU 

SKN 

IDA 

SKA 

iRI 

LDX 

LDA 

2R9 

im 

ZR9 

M8DE 



iRU cueuTj 

BRI CUINT 



SKR TIME; BRI CLINT 



TTIME; BRU #*E| 
ACTRl iRU CL8UT 
UMTF 

SKN CUINT; BRU CKOI 
CLINT; STA TRAPT; LDA CLiNT; BRI »TRAPT+1 
SA; LDA* CLINT; |TR »a0077777B; SKE «40000B 
QK; LDA «100| STA C8UNTi STX SX 
O; BRU 9KX; LDX 

0^6; SKA «400008; BRU IND; BRU 0KX 
X2; ADD SX; CAX; SKR C0UNT; BRU UPT 
■ TRAP 
SX 

SA; BRI CLINT 




TRANSlTieN TRAP 



imt STA SSOlrSTB SS02; STX SS03 

LDA UMTF; SKE ii; BRU TRAPTU LDA SSQl; BRU# TRAPT 

LDA TRAPT; STA Ol BRU PACQE. 

CL8CK (PeWER 9FF INTERRUPT) 

IF V5 

ZR9; STA P8FFA; STB P8FFB; STX PSFFX; MIN PWFL 

BRU *; BRI PWFI 

9N INTERRPUT 
ZR9; BRU* * 
ZR9 
ZR0 
ZR0 
ELSF 1 
ZR9; BRI PWFI 
ENDF 



* BR$»S F8R TIMING 

♦ BRS 88 READ C9MPUTE TIME 

IF V5 
RTEX SKN PQU#2; BRM TRAPB; 



LDX gaB; LDA ETTo/H; STA SSOl; BRU PdPX 



RTEx UDX gee; tOA e;ttb#2; sta ssoi; bru pqpx 

ENDF 
# 

# BRS #8 

IF V6 
RREAU UDA REAli STA ^SOl; LDB DMINJ STB SS02J BRU P8PX 

EUSF X 
RRIAL LDA REAU; STA SSQlj BRU P8PX 

INDF 
# 

# 8RS 81 DISMISS F8R SPECIFIED TlMEt TIME IN MSt 
WREAl. MUl «1727024B; SKB X4; ADD ^Xi ADD REAL; STA SSOI 

LDX iQTlJ IDB WRECl; MIN 0; BRU P8PDMS 
WRECl 4 #4l; UDA PA#2i CACR IHSKG REAL) 

# 8RS 57 GUARANTEE'S 16MSi 

CQ8 UDA TIME; SKG »1| BRU SQS; BRU P8PX 



# SYSTEM START 

SETSET PISN; TSNi UPA 22B; STA DISCA 

SITSTl l,DA ^DASET; ADD DISCA; ADD DRC; LDB fCASET 

i,DX f4000B; BRM GDC; BRU SETSTl 

UDA MSITRl; STA RRL3i lRR3j P8T RRL3| BRU SETSA 
MSITRU DATA ^XZB REIABEIUING F8R SET 

DISCA im DISC ApDREiS Q¥ SYSTEM 



# GET DISC B18CK T8 C8RE» A«DISC ADDR# B«C8RE ADDR# X^CQUNT 

# SKIPS IF NB ERR9RS 

GDC im Of ARMI -6000008 

STB GDCLJ STA GDCl+U IDA QDCl; ETR ADMSK; RSH 1^ 
CXA; ETR •77777Bi LCY 14; STA 6DCl*2; ISH 19 
tDA GDCl; ETR il40QO0B; CBXi RSH 14 
CXB; LSH 5; MRG sI8RDW; STA GDCL*3 
DRT; BRU *«U AtD; P8T GDCl-t'l 



GDC2 
QDCU 



GCRU 
QCRLl 
QCR12 
GCR13 



gm* lOOOOB^ EXU GDCL + 3J P8T GDCL-J-g 

DSR 

DRT; BRU **l; PET; BRU GQC2V DCTj BRU GDCH 

MIN GDC 

BRR GDC 

DATA 

DATA 

DATA 



DATA 
DATA 
DATA 
DATA 
DATA 



REAL CSRE ADDRESS 

DISC ADDRESS 

WC+C0RE ADDRESS 

I9SD WITH EXTENDED ADDRESS AND W8RD C8UNT 



QUEUE ReUTINIS 



♦ INPUTI AiPAC;PTR# XiQUEUet 
QPUT ZRe^ ^Di Z^Zi XXAi STI PNEXT#gi 
CBXJ STA PNEXT#2j BRR QPUT 



XXAi LDi 1/2; STA li2 



INPUTS A«PNEXT OF FdRK T8 GET, B«QUEUE (QI8Q)# Xi 
ZR8| STA PNEXT,2; XXBi SKG lOl BRR QGETl STB 



PREVieuS PACPTR 
PNXTPi|2; BRR QGET 



INPUTS A«NEW ACT, C8ND. 
QSCM CHANGES ACTIVATI8N 
THE QUEUES. 



XsPACPTRt 
C0NDITI8N AND 



TAKES PAC ENTRY QFf 



QiCH 



QSCM2 
QICH3 

QSCNl 

# 



ZRQi XMA PTEST#2; E8R »700000B; SKA 5?7700000B; BRU #+2 
BRR OSCH (eUD ACT. COND. WAS 7- FSRK N8T 0N QUEUES.) 
I.DA PNEXT#2; STA QSCNl; STX QSCH^; IDA «QTI 
SKG fO; BRU QSCH3; SUB «PNEXT; CAB 
CAX; LQA PNEXT#2; SKE QSCH4; BRU QSCN2 
IDA QSCHl; BRM QGET; IDX QSCH4; BRR QSCH 

im 

IRQ 

INTERRUPT l,8GIC 



♦ IIR MAKES ACT. C8ND» A PReGR, INT. AND PUTS F8RK 9N Qie 

♦ INPUT? A^INt* MASKf XfPACPTR. 

JIR l^Qr SKA PJf^iZi BRU *-¥Zi BRR IIR 

$TA IIRl; STX lIRaj eeR PIM#2^ STA PlH/2 

CHAR; IDA IIRU N^O 2^1 CXAI SUe p50000QB.2i CNA 

CA8J IPX IIR2i IDA PTEST#2; SKE ?700004Bi BRU I!R3 

t,DA PIM#2; SKA Xl; BRR IIR (N6N-TERMINABUE BRS) 

§TB IIRU IDA PPTR#2J RSH I2i CAXi BRM DFKj UDB IIRl 

I|R3 CBAJ IPX IIRHj BRM QSCH; CXA; MRQ X7 
LPX »Q|a| BRM QPUTi LDX IIRSl MIN 
|R@ 
|R9 



IIRj BRR IIR 



IIRl 
IIRl 

• 

# SEARCH F8RK STRUCTURE AND INTERRUPT 

# CHECK PARALLEU FeRKS FIRST. THEN Gd UP F8RK STRUCTURE. 

# INPUT? A«INT» MASKf XfPAQPTRt 



SIR 

SIR2 

S|R4> 

SIRS 
S|R3 

S|R| 



|R8j STA SIRU UDA PPTR#2; MRQ PL,MSK; CAX 

IDA PPTR#2l IRSH 12 
PRMSK* BRU SIRS 

PPTR#2l SKA PRMSK; BRU »*2; BRR SIR 
PimKi CAXi UDA $IRU BRM IIR; BRU SIR4 



$KA 
UDA 
MRQ 
M|N 
MRQ 
LPA 
ZR9 



SIR; BRR SIR 
PLMSKI CAX; iPA 
PQU#2; BRU SIR2 



SIRl; |RM IIR; BRU **2l BRU SIR5 



1^ 

M9NIT8R 



CRA§H 



VI 



CRA2; MIN 

STB mcrb; 

SKE J8B; 

ST8P 



MaNCR |R8; SKN M8NCR; BRU 
CRA2 CKF; DIR; STA MCRA; 

LDA 0; STA MCRO; C^A; 

LDA ii; SKE MCRC; BRM 
# SAVE USER'S TS Bi,8CK 

l,DA RLTS; ETR »77B; SKE lO; 

IKE i<fOB; BRU *^2i BRM ST8P 

MRQ i700B; STA CRA5; IRR3; PQT 

PRM CRA3 
$ST8P 2R9; BRU * 
CRA3 IRd; LDX i«3777B; LDA 37777Bi2; 



MCRC; 

STX MCRX; 

BRU ♦♦2; 



MIN 
BRM 



MCRC 
ST8P 



BRU *+2; BRM ST8P 



CRA5 



STA 33777B#2; BRX *»2 





LDA 377778-f STA 33777B/ BRR CRA3 


CRAIH 


IKN PQy#ai 8RM TRAPBl BRy CRA2 


CRA5 


|Ra TS BL9CK RELABELLING 


MCRA 


ZR9 


mm 


pa 


mm 


IRt 


HCRO 


|Re 


mm 


im 


ENDPAC 


BSS G 




ENDF 




IND 



3PMT 
# 



IDENT 7/01/67 

SHTjSMTEjPHTiPMTMI 

qo#qi/Q1n#qie:^nlq 

PNEXTiPL#PA/RLlii=^UH#PPTR#PTEST#PQU4PTAB4PlM 
PNXTPIjPL^^PACTIjPPTRS^PPTRU 



i;NTRY 
ENTRY 
ENTRY 
ENTRY 



# THE FIRST ENTRIES MyST BE SET TQ THE EXEC AND CeMMQN SUBSYSTEMS 
Sm DATA i^OBi 2000000iB# 20000002Bi 20000Q03B# a0000004Bi 20000QQ5B 

DATA 20000006B#20000000B 



$NM$MT 

SMTE 

PMTMl 

PHT 



DB 6j0i2i3; 
PB 35#0#2j1 
PB 20#Q#S#3 
DB 3liQ»5il 
DB I2ii0^il 
PB likiX^ZiX 
DB 15#i>3n 
DATA 20002UOB 

EQU *»SMT 
BSS NSMT*SMT»* 

|QU * 

EQU *»1 

iSS NUMEH*NJ9B 



DB 22#0/li3; DB 7#0#2#3 (EXEC-10) 

{XFTC*15)J BSS I 
(DDT-aOi DB 5#0i2il <QED»22) 
(CAL«2#)j DB 23#0i*t#l CSNe8BU-31) 
(CCSl»35)j DB 17#0#2#1 (FTC-^l) 

C^3/3#l (XBASIC«45) 
25#1#3#1 (XFas«53) 
DATA 200003UB (W^57) 



(CCS5^#3); DB 

(CCS7^50)i DB 

(DISC»56)J 



SHARED MEM0RY TABLE 



PROGRAM MEMQRY TABLEt NUMEM»16 



# QUEUES 
QUEUE MACPa 
$Q»N(1) DATA 
$QfN(l)tQ EQU 

ENDM 



N 



00 
*QTJ 

*QI8 

$QSQ 
*QQE 



QfN(2)#QfN{l)pPNEXTiQfN{2) 

QfN(l)»PNEXT 



EQU * 

DATA 

DATA 

DATA 

DATA 

EQU * 

EQU Ql*l 



QI9#QT| 

QSG#QI9' 
QQEjQSQ' 
QTI#QQE' 



'PNEXT^Qie 

•PNEXT#9SQ 
'PNEXT^QQE 
.PNEXT#QTI 



QIE 


EQU 


Ql*2 


NIQ 


DATA QQ»Q1 


# PACT 


TABLE 


PACT 


iSS 


NPAC»NPPAR 


PACT! 


IGU 


PACT*NPPAR 


PDATA 


EQU 


* 


PNEXT 


Iqu 


PDATA^O 


PL, 


EQU 


PDATA'^1 


PA 


IQU 


PDATA4.2 


Rll 


IQU 


PDATA4-3 


RL2 


EQU 


PDATA+4 


PPTR 


IQU 


PDATA*5 


PTEST 


IQU 


PDATA"*6 


PQU 


IQU 


PDATA*7 


PTAB 


EQU 


PDATA4-8 


PIM 


IQU 


PPATA-^g 


W 


IF 


VI 


fQTIO 


EQU 


QTI^PNIXT 


$0ieQ 


IQU 


QI9.PNEXT 


$QSQO 


IQU 


QSQ.PNEXT 


$qqe:q 


IQU 


QQE*PNEXT 



PNXTPl EQU PNEXT*i 

Plk EQU PU*4 

PPTR2 EQU PPTR*PACT»PDATA*NPPAR 

PPTRU EQU PPTR«NPPAR 



END 



3RAD |D|:NT 6/30/67 

* |NTP?Y P0INTi 

RC: |QU X CHICK ©N RAD T|M|N6 

INTRY NReL#RTS|RTC*RTWjRTP|RTXil#RADia 
INTRY RDR#RADf#RUll#RAPQiRDQU,i:RCl#RTXS2 

RADQ PSS NRDQ*4;RDQU EQU #;♦ RAD 1/8 REQUESTS 

# 

♦ THIi IS THE RAD INT|RRURT R9UTINE FfR AU RAD, 1/8 

# 

NRCI, Zmf* t^mi W RAD CtHHANDS IN LIST 

CRCU IRei* CURRENT END SF LIST 

RADTRY imi* TRY^AGAIN CegNTD0WN FeR 16 PARITY ERR8RS 

RDR im 

LDA iil STA RDREXl LDA RRT| ITA RAD|*1 

CLAi STA RWISEi M|N RGC3 

LOX RLISj LDA 2#2| STA RADIFJI LDA Q/g; STA RADDRl LDA ls2 

STA CADDl LDA RRDi SKN 3/8; LDA RWR; STA RADIQ 

SKS* 14000B; SRU *»1 (CHANNEL READY) 

DIR 

E9D i0086B; P8T RADDR (RAD ADDRt) 

PRU RAPIA 
RLIi ZR© POINTER Te NEXT CaMMAND 

♦RLISE ZR8 POINTER T8 PREVI8US C8MMAND 

RADI ZR9 

SKS* 100H6B; BRU *«i (READY TEST) 

E8D l00S6Bi P0T RADDR (RAD ADDRESS) 
RAPIK SKS* 110268i BRM RDER (RAD ERR8R) 

SKS* UOOOB; BRM RCER (CHANNEL ERRdR) 
♦RADIA E8D* lOOOOB; 

RADIF E8D 47^008/ P8T CAOD (C8RE ADDRt) 
RADIG ^00 23668 

$TA RIA; STB R|Bl STX R|X 

IF RC 

LDA REALi iTA* PRCli MIN PRCil LPA PRCl 

SKE ERCl; BRU «+aj LDA iRCi; STA PRCl 

ENDF 

SLAI SKE RLISEj BRM RFIX 



RIXIT 



RCIR 
ROIR 
RCHK 



$RDaA 
$RD2 



RiAa 

REXE 
DREX 

NCHND 



RFIX 



LPX RlIS 

STX 

EAX 

CXA 

SKE 
8RU 

Lix 

STX 
QIA 



RIISI 
4#2 



SAVE 



PTR» 
GET 



T© THIS 

POINTER 



C8MMAND 
IQ NEXT 



C9MMAND 



liA 

iKR 
IDA 
UOB 
UDX 
PRI 

im 
zm 

MIN 
UDA 

ZRa 

8SS 

|Re 

IDA 
MIN 
SKS 
SKS 
IKS 
STA 
iRM 
iRU 
IRQ 
|9R 
M|N 
CAX 
SKR 



?RDGU 
♦ ^8 
fRAPi 
RUIS 
i SKE NRCU; 
O^ai STA 
2i2l STA 



IS THIS THE END ^f THE QUEUE 
NO 

WRAP AR&UND 
SAVE PTRi Td 
BRU **2i BRU REXE 
RAUSR; LDA 1^2; STA CAP© 
RADIF 



QUEUE 

NEXT COMMAND 



RRD; SKN 3iB$ LDA RWR; STA' RADIG 
RDREX; 0RU DREX (DRIVER EX|T) 
RIA 
RIB 
RIX 
RADI 
; BRM RCHKj 
i BRM RCHK; 
I STA RIA2I 
RD2A; Cda 
RIAa; 3RR 
RD2 

10 ADDRESS ar RAP ERRORS 

♦ 



NRRTj STA RADUl; BRU REXIT 

RCC4I EIRi BRR RDR 
♦ l00a6Bj BRU ♦#! (RAD READY TEST) 
BRM RDER (RAD ERRSR TEST) 
BRM RCER (CHANNEL ERR0R) 
RIBJ STX RIX 



MIN RCERRI MIN RUERR; BRR RCER 
MIN RADERRi M|N RUERRi BRR RDER 
IDA# RLISE; STA* RDEA 

1RD2E; SKE RD2A; BRU *+3i UDA »RD2l 

RCHK 



STA RD2A 



* UOa60; 
t 110008; 

RIA; STB 

RF|X 

REXIT 
; LOX RUISE; LDA 

2#2; RSH 2; ETR 

RCCi 
; LDA 3#2; ETR §778; 
; N8P; BRR RFIX 



1#2; RSH Si E8R 2,2; 
s37B; C9PY AX*XA#AB; 



CAX; BRM* IRT/2 



ETR 
SKR 



^378 
RMC|2; 



Nep 



RIA 
RJB 
R|X 

$RADDR 

$CADD 

RDREX 

RRT 

RCR 

RRD 

RWR 

NRRT 

PRCi 

RCl 

iRCi 



ZR9 

ZRe 

^R^ 

|Ra 

SKS* 

SKS* 

E8D 

|8D 

SRU 

If 

im 

BSS 

|R9 

INDP" 
PATA 

ZRai 














X0026B 

U026B 

2226B 

2266B 

NCMNP 

RC 

RCl 

30 

* 



RAD ADORf 

CaRE ADDRf 

F9R DRIVER EXIT 



IRT PATA R|N8P#R|N9P|R|N©P#IRS 
RIN9R ZRai BRR RIN0P 
« CHECK F0R SWAP ERR9RS 

IRS imi IDA RUERRl $KG RSTEl BRR IRS; cePY BX^Ai 
XHA RMT#2i CAX; l,DA Q,2i MRG X4| STA 0#2i BRR 

« 



STA 
IRS 



RMA/2 



# II INTERRUPT RQUTINI 



RAPI2 

Nlll 

RCCl 
RCC2 
RCC3 
RCC<^ 



ZR9 OJ STA RiA 

M|N RCC2; UDA HC^Zl SKE RCCU ^RU NQIU IDA RiA; BRI RADI2 

M I N I 2ER J 

LOA RADI21 STA RADIi IDA RIA; BRU RADI*i 

im NQ, 8F U INTERRUPTS 

ZR9 N8f 0F 12 INTERRUPTS 

im N0| 0F TJHES TNRdUOH DRIVER 

|R9 N9» 9r TIMES THRU DRIVER EXIT 



# GENERAUl^Y UiEFUl. RAQ RaUT|N^S 

# 

RTXSl ^R9;* CaMMAND C9UNT 



♦ RESET C0MMAND C9UNT 

njP inBi UDA »»U STA RTXSU BRR RTF 

♦ ENTER C8MMAN0 IN UIST AND l^CK MEMeRY BL8CK 

♦ As ABS C9RE ADOR 



INCREMENT Na* 0F RAD 

SAVE C8RE ADDRt a 

GIT CDRE AODRf » X6 



« Bf RAD ADDR 


# Xi W8RD C8UNT 


RTC ZR9 




MIN 


RTXSJ 


$TA 


RTTMP 


ETR 


¥377776 


xAa 




^TA« 


ERCl 




10 


CXA 




ETR 


«77777B 


UCY 


H 


UDX 


ERCL 


STA 


i#a 


ISN 


19 


RTCl UDA 


RTTMP 


ETR 


»1#OOOOB 


CBX 




RSH 


l^ 


CX6 




LSM 


5 


MRG 


i006l7200B 


SKN 


RTTMP 


MRQ 


X4 


RTC2 LDX 


ERCU 


STA 


a#2 


CIA 




SKN 


RTTHP; MRG X^ 


iTA 


3s2 


IDA 


RTTMPJ RSH U; 


IDA 


ERCl 


STA 


RTXS2 


ADD 


i# 


SKE 


fRDQU 



COMMANDS 
R/W BIT 
BITS 



ST0RE RAD ADDR» 
LEFT JUSTIFY C9RE 
aRDER BITS 
W8R0 C8UNT T9 A 



ADDRi IN B MINUS 2 NIGH 



W8RD CNT ^ C8RE ADDR IN A 



LEFT UUSTIFY 4 BITS eF W8RD CNT LEAVE BL 
C9RE ADDRt 



laSD 

SKIP IF WRITE 

CHANGE T9 N9P 



TO DELETE EARLY II 



ETR «37B; CAXi MIN RMC#2 



IS THIS THE END 9F THE QUEUE 





BRU 


*+2 




IDA 


sRADQ 




STA 


ERCl 




LDA 


fNRDQ»S 




SUB 


RTXSl 




SKG 


NRCL 


M 


BRU 


♦-1 


W 


§RR 


RTC 


RTN 


im 






MRG 


X4 




BRM 


RTC 




BRR 


RTW 


RTXS2 


ZR8 





RTTMP 


ZR9 






HQ 
YES ^ WRAP AROUND QUEUE 



WAIT reR QUEUE T6 EMPTY A BIT 

SIT F0R WRITE 

PREVIOUS CehMAND P8INTER* 


# RAO START 

RTS |R^; LDA RTXSli SKA X4I BRU RTSU ADD ?U DIR; XMA NRCU; ADM NRCL 
J^lRi SKE «t»U BRU RTSn LDA iNRTRY^U STA RADTRYl 
BRM RDR 
RTSi BRM RTP; BRR RTS 



END 



3RUP ID^NT 6/30/67 

# STRING AND Fl.9Af|NG P8|NT SYSPepS 7/30/66 





IP 


V6 


SCIT 


9PD 
INDF 


13400000B#l#l 


swci 


§PD 


i5700000B#|#l 


SCI0 


9PD 


16|O0C0O^#|#l 


sm$ 


9PD 


173000008/ m 


SSKSE 


dPD 


i63000008#ia 


uaci 


MACR9 


A 




EAX 


AU) 




©RM 


dcu 




ENDM 





SYSP9PS WITH BIT REMQVED .ft 

^f. paR USE BY SYSTEM heOE RQUTINIS 



# UTILITY BRS'S (33i34/35#37) 



BRS 33 



$^ETSTR STB 


GSINl 


STX 


QSIN3 


ETR , 


140C37777B 


CAX 




IDB 


i#6 


SKA 


^^OOOOOOOB 


STB 


0#6 


EAX 


0#6 


STX 


GSlNa 


SC|8 


GSIN3 


G$|N4 SWCI* 


(3SIN2 


SCId 


QSIN3 


SKE 


GSINI 



mo 


GSlNi^ 


LDA 


0/6 


WDB 


1^6 


lOX 


QSIN3 


BRU 


EPepx 



BRS 3^ 



fiUTMiQ STB 


STR83 


MUl 


s3 


ISH 


23 


SUB 


»r 


§KN 


5TR83 


iRU 


TYM2 


IDB 


»i37777B 


PRU 


STRe6 


TYHS CAB 




ADD 


sTRea 


XAB 




BRU 


STR06 



N9T SPECIAL M8PE 



BRS 35 



♦0UTSTR ADD 


iO 


CLEAR X\0 


STX 


STRe3 




STRt6 AOO 


lO 


CLEAR X\Q 


STX 


STR91 




ETR 


5F177777B 




STA 


STR82 




CBA 






ITR 


11777778 




STA 


STR821 




STRa4 UGCI 


3TR82 




BRU 


STR98 




SKN 


STR63 




BRU 


STR87 





STRQS 

STR85 



STRQ7 



STRSTA 



STR87 



SKE 


fi7B 




BRU 


STR85 




LOX 


STR81 




BRy 


EP9PX 




SKE 


1^ 




BRU 


STR97 




IDA 


»155B 




IF 


V6 




SKG 


f77B 




BRU 


STR87A 




SKE 


•1478 


BELL 


PRU 


♦ ♦2 




BRU 


STR67A 




SKE 


il55B 




©RU 


♦ 4-2 




BRU 


STR87A 




SKE 


11528 




^RU 


*^Z 




BRU 


STR87A 




SKN 


UEXFIG 




BRU 


STR8^ 




CAB 






UDA 


f6 


AMPERSAND 


$cie 


STR81 




CBA 






$m 


fiOOB 




SCIQ 


STRBl 




BRU 


STR94 




EUSF 


1 




scia 


STR81 




IDA 


fl52B 




SCI9 


STR8i 




BRU 


STR9^ 




ENDF 







BRS 37 



$GSi.8eK SIX 


WR13 


ABC 




STA 


WR7 


ICY 


12 


SKG 


fO 


UDA 


UC9UT 


iTA 


WR| 


CIA 




kCV 


12 


STA 


WR2 


UDA 


SSOH 


ETR 


AOMSK 


MRG 


X4 


§TA 


WR3 


CAX 




QS114A LDA 


i#6 


sue 


0#6 


STA 


WR§ 


ypx 


WR|3 


UDA 


0#6 


LD8 


l#6 


STB 


WR6 


CAX 




BRU 


#4>3 


C3SH9 EAX 


3#2 


CXA 




iKE: 


WR6 


BRU 


GSL18 


SKN 


WR7 


iRU 


mix^ 


LDX 


mxQ 


yOA 


l#6 


ETR 


fl77777B 


CAB 





SET 'FIRST MATCH? 



PICK UP HASH TABLE BOUNDS 



|;ND 8F HASH TABLE SCAN 
N8 

UNIQUE HATCH F^UND 



TRACE AND e/P REMAINDER 9F STRING 



IDA 
STA 
ST© 
GSt^JSA yGCI 
BRU 
PCIT 
BRU 

PRU 
$KG 
SKG 

BRU 



WR9 
WRU 

mi2 

WRU 
GSLiS 

WR2 

* + 2 
GSL19B 

• 728 
•408 
GSU15 



CHARACTER INPUT IF TESTS EQUAL 
D^ESNtT CSMPARES 

CK IF ALPHA CHAR, 

NON-ALPHAj 88 PRQPER TERMINAT9R 



LDA WR5I SKE wQi BRU GSLH* BRU GSLl^ 



GILJSi iTA WR5^ BRU GSL19A 



G|Li5 



G|L1# 
GSLa? 



UDB 
CXA 

MIN 
BRU 

LOX 



IDB 
IDX 

BRU 



Q$Li6 CLA 
STA 



G§L18 



LDA 

§KG 
SKG 



BRU 

LDA 

SUB 
ETR 
ADD 

SKG 



WRIO 

SBRSRT 
GSL22 

WR3 
0#6 
li6 
WR13 

EP0PX 



WR7 

0#6 

lO 

ii.2 

♦ *2 

GSL19 

1#6 

ii77777B 

fl 

WR5 



KXIT VIA HERE |F MATCH F9UND 

SET SKIP 9N RETURN 

EXIT VIA HERE IF NQ MATCH F9UN0 



SET 'FIRST MATCH 

HASH TABLE ENTRY EMPTY 

YES# TRY NEXT QNg 

m* IS HASHT STRt SH9RTER THAN GIVEN STRING 



01117 



mij 

IDA 

ITR 

CAS 

ADD 

XA8 

SSKSE* 

PRU 

SKN 

BRU 

SCI9 

SWCl* 

MIN 

H|N 

IDA 

IDB 

SSKSE* 

iRU 

iRU 

iTA 

sra 

STX 
LDA 

iTA 
iRU 



QStl9 

•177777B 

WR5 

WR3 
QSL19 

mi 

GSL17 
WR2 

WR3 

m$ 

WR5 

wRa 

WR9 
WR3 
GSU16 
QStJS 

WR8 

WR9 

WRIO 

»#0000000B 

WR7 



YES# MATCH IMP8SS 
YES 



CeMPARE PRSPER INI T I At ? PARTS 
Ne MATCH 

MATCH# FIRST 30 FAR 
YES 

N9# APPEND CHARS UNTIL 8NE ELIMINATED 



PREVieyS MATCH ELIMINATED 



RESET 'FIRST MATCH* 



#i30 STRING PROCESSING SYSTEMt MANUAL IS DOCUMENT NUMBER 30il0«a0 



♦ WRITE CHARACTER AND JNCREMENTt THE PdP ADDRESSES A STRING PeiNTER# AN'D 
♦THE CHARACTER IN A 1$ WRITTEN 8NT8 THE END ©F THE SPECIFIED STRlNGt 



#THE SEQ9ND P9INTER 1$ INCRE:A$E0 BY SNE# SS THAT THE POINTER NOW 
#Pt|NTS T^ the; new STRINQf X AND A ARE PRESERVED/ B DESTRQYEDt 
WCl P9PD 15700000aa#l#0#l 

ETR f377e 

STA WCHi SAVE CHARACTER T9 BE WRITTEN 

STX WCNg SAVE X REGISTER 

|AX# GET EFFECTIVE ADDRESS 9F PdP 

MIN Ii6 INCREMENT SECeND W0RD 8F STRING P9INTER 

UDA 1/6 AND PICK IT UPt 

iRU WCH5 Q8 Te WCH CeDEi WHICH IS IDENTICAL FRQM 

♦WRITE CHARACTER AND DECREMENT? DECR» 1ST PTR» 
#AND WRITE CHARf 8N BEGINNING 8F ^TRI'NG 
WCD P9PD 13500000P/lii#C#l 

ETR 13778 

STA WCHJ 

STX WCH2 

EAX* 

tPA 0#6i SKR 0,6i NdP 

iRg WCH5 
* THIS P8|NT 8Nf 

♦ST8RE PejNTERt THE A AND B REGISTERS ARE STORED IN THE W0RD ADDRESSED 
♦gY THE PQP AND THE NEXT WORD 
STP P8PD I6700000B/ 1/1/0/1 

iTX STPl SAVE INDEX REGISTER 

|AX# GET EFFECTIVE ADDRESS 

ITA 0/6 D8 THE 

STB 1/6 ST8RE 

IPX STPl RESTORE X 

BRR RETURN 

♦LOAD P8INTER1 TH| A AND B REGISTERS ARE LOADED FROM THE W8RD ADDRESSED BY THE P 
#ANF THE NEXT W9RDt 
LDP PaPD 166000006/1/1/0/1 

iTX STPl 

EAX» 

LDA 0/6 

LDB 1/6 

LDX STPl 

BRR 



aET CHARACTER AND DECREMENT 
TRANSFER CHAR, FR^M ePERAND STRING 



T© A REGISTER* DECREMENT END-STRf PTR. 



GCD 



P0PP 


|37000C0B/l#l/0ii 


STX 


GCU 


EAX* 


Q 


IDA 


li6 


§KG 


0i6 


BRU 


GC!3 


SKR 


l#6 


m\) 


GCI8 



*GET CHARACTER AND INCREMENT 
♦FIRST W8RD ©F THE F8|NTER | 

* SKIPPINGf 9THERWISE# 

* CHARACTER 9F THE STRI 

* BY If X IS PRESERVEDi 
GCl P9PD J65000O0B#l4l#0i 

STX QCIl 
EAX» 



• THE P6P ADDRESSES A STRING P8INTER» IF THE 
S*»eRf T9 THE SECeNP# IT RETURNS WITHegT 
IT SKIPS AND RETURNS WITH THE FIRST 

IN A AFTER INCRIHENTINQ THE FIRST POINTER 

PESTR9YEP. 



NG 
1 



« 
QCI9 



GCI3 
GCI8 



M|N 0#6 
IDA 0#^ 
SKG 1#6 
BRU GC|8 
SKR 0#6 
NdP D 
UPX GCU 
BRR 
M|N 
MUi, 1=^5352538 



RCH 
LCY 



<^12B 
2 

0/6 
RCH 24B 
EXU GCI2/2 



SAVE X 

YESt DQN'T HAVE T8 WQRRY ApSUT WHETHER 

ADDRESS JS R^LABlEDf GET IT 

INCREMENT PQINTER 

AND GET IT 

IS STRING NULL (1ST POINTER *^? ENp ) 

Ne 

YESt REST9RE P9INTER 

AL19W F9R POSSIBLE SKIP 

RIST9RE X 

AND RETURN WITH9UT SKIPPING 

INCREMENT RETURN ADDRESS F9R SKIP 9N RETURN 

MULTIPLY CHARACTER ADDRESS BY 1/3. THIS 

LEAVES WORD ADDRESS IN A, CHARACTER 

ADDRESS IN T9P TWO BITS 8F Bt 

CAX * BACi WORD ADDRESS T9 X 

MOVE CHARACTER ADDRESS TO BOTTOM OF B 

GET WORD 

CBX -* CAB 

SHIFT TO GET CHARACTER IN BOTTOM OF A 





ETR 


f377B 




LDX 


GCIi 




BRR 





GCI2 


ICY 


8 




UCY 


16 




CBA 






»RU 


TRAP 


* QCI 


WITH 


POINTER IN TtS, 


GCU 


ZR9 






leDA 


ecu 




§TA 







MIN 


Oii 




IDA 


Qid 




SKQ 


l*Z 




BRU 


GCI8 




SKR 


o#a 




Nap 






BRR 


GCU 


♦WRITE 


CHARACTER 6N THE END 


# 


QAN 


CAUSi; A GARBAGE 


• 


PARAMETER TABUE IN X 


• 


RESTORES B0TH. B IS 


WCH P©PD 16^00000Bii/l/0#l 




ETR 


i377B 




^TA 


WCHJ 




STX 


WCN2 




EAX* 


M 


MIN 


0#6 


w 


UDA 


0#^ 


jL 


IKE 


l#6 


W 


^RU 


WCN5 




IDA 


'^"i 




ADM 


0#6 




UDA 


WCHi 




UDB 







BRU 


2#^ 


WCH5 


MUl, 


il2525253B 



REM9VE SUPERFLUeuS BITS 

RE$T8RE X 

AND RETURN 

SHIFT TABLE FBR EXTRACTING A CHARACTER 

FRSM A W9RD 

lULEGAt STRING P0INTER 
BL8CK 



9F STRING ST8RAGEf THIS IS THE 0NUY P8P WHICH 
CBlLECTI8Nt |T EXPECTS THE ADDRESS 0F THE 

AND THE CHARACTER T8 BE WRITTEN IN A AND 
DESTR8YED» 



SAVE CHARACTER 

AND INDEX (ADDRESS 8F PARAMETER TABLE) 

INCREMENT CURRENT LAST CHARACTER Td GET 

CHARACTER ADDRESS F8R THE NEXT CHARACTER 
GET THE ADDRESS T8 A 

IS IT EQUAL T8 LAST ADDRESS IN STRING 
ST8RAGE$$ 



CSMPUTE W8RD AND CHARACTER ADDRESSES 



♦ SEE GCI C8DE 
CAX SAVE W8RD ADDRESS 

ICY 5 CHARACTER ADDRESS SHIFTED 3 IN AC 

ETR S30S REMQVE EXTRANE9US BITS 

10B> QiS PICK UP W8RD 

XXA SHIFT C9UNT TS X 

ICY 8i2 SHIFT IT T9 PUT CHARACTER T8 BE ALTERED 

♦ AT B8TT8M 

ETR f77777400B MASK 8UT THIS CHARACTER 

MRG WCHl AND INSERT THE NEW 8NE 

RCY 8#a iHjFT mno back 

CAX REST8RE W8RD ADDRESS 

STB 0i6 ST8RE l^8RD 

IDA WCHl RESTORE A 

LDX WCH2 AND X 

iRR AND RETURN 

•SKIP 8N STRING EQUAL, THIS P8P COMPARES THE STRINGS WITH P8INTERS IN 

* AB AND IN THE TW8 W8RDS ADDRESSED BY THE P0Pf IT IS 

• EXACTLY IDENTICAL T6 THE MACHINE C8MMAND SKEt ALL REGISTERS ARE 

# PRESERVEDf THIS P8P CHECKS F8R EQUAL LENGTH STRINGS FIRST 

* RETURNING WITH8UT A SKIP IF THE STRINGS ARE N0T EQUALt IF THEY 

# ARE# IT CALUS iKC8 T8 F|ND 9UT AB8UT EQUALITY 8F THIER C8NTENTS 
PBPO U300QOQBiliXsOil 

STA iKil 

ST8 %K§X*X 

STA $KS5 SAVE TW8 C8PIES 

STB |K$5*1 ap FIRST STRING P6INTER 

STX |KSS SAVE X 

SUB $K$X^% CdMPUTE 

STA SK^(5> AND SAVE LENGTH 

EAX# GET ADDRESS QF SEC8ND STRING P8INTER 

LDA 0/6 C8MPUTE 

SUS |#6 ITS LENGTH 

SKE SKS6 AND CSMPARE WITH FIRST 

iRU ♦*i N8T IQUAL 

SRU SKSEa EQUAL 

LOX SK$2 N8T EQUAL* REST8RE X# 

LDA SKS5 A AND 

LDB SKS5*1 S 



^RR AND RETURN WITH0UT SKIPPING 

SKSig LPS l#6 lENQTH EQUAL. PICK UP SEC8ND 

i,DA 0/6 STRING POINTER 

IDX 3KS2 AND eRIQINAU X 

»RH SKC6 CeMPARE STRING IN AB WITH THE QNE IN SKSl 

iRy **a AB LESS 

MIN EQUALf INCREMENT RETURN ADDRESS F8R SKIP 

SKSIl LDA §Ki5 GREATER^ RESTQRE A 

LDB 3KS5*i AND B 

BRR AND RETURN 
#iK|P 0N STRING GREATERf THIS Pap IS T9 SKG A3 SKSE IS T9 SKEt IT CALLS 

# |KC9 IMMEDIATELY WITNQUT COMPUTING LENGTHS 
SKSG PePD U200000B#l#l|0#l 

STA iKil iAVE 

STB SKSUl TWe CePIES 

STA ?KS5 0F FIRST STRINQt 

iTB SK$5*l 

8TX SKS6 SAVE X 

EAX» GET 

LDA 0#6 SECOND STRING 

LDB 1#6 P8INTER 

LDX SKS6 REST8RE X 

^RM SKC8 D8 C8MPARIS9N 

MIN SEC9ND STRING LESS# !•£• FIRST GREATER($,) 

♦ INCREMENT RETURN ADDRESS F8R SKIP 
N8P EQUAL 

IDA SKS5 FIRST LESS, REST9RE A 

LDB SKS5+1 AND B 

BRR AND RETURN 
#TH|S RQUTINE C8MPARES THE STRINGS JN A© (FIRST STRING) AND IN SKSl 

» (SEC8NP STRING)! IT RETURNS NITHeUT SKIPPING IF THE FIRST IS 

# LESS. SKIPS 8NCE IF THEY ARE EQUAL* AND SKIPS TWICE IF THE F|RST 

♦ IS GREATER. N8TE THAT SEVERAL 8F THE NECESSARY GCI'S ARE WRITTEN 

* 8UT INSTEAD 9F BEING CALLS 9N THE PSP, 
$KG8 ZR8 

STA SK§4 SAVE FIRST 

STB SKS4*l STRING P8INTER 

STX SKS7 AND X 

SKC81 M|N SKSl BEGIN L98Pi GET A CHARACTER 





LDA SKSi 




IKG §KS1*1 




BRU SKC94 


sKceg 


MJN SKCi 


w 


MIN SKS4 




LDA SKS4 




SKQ SKS4*1 




MIN SKCe 




BRU SKC85 


iKCf4 


HUl 1135253538 




RCH 40iB 




LRSH 22 




IDA 0#6 




RCH 248 




|XU GC|2#2 




ITR 13778 




STA SKS3 




MIN SKi4 




IDA SKS4 




SKQ iKi4*l 




^RU ♦♦S 


■K 


iRU iKCtS 


w 


MUL il2525253B 




RCH 401B 




LRSH 22 




LDA 0#6 




RCH 24i 




EXy GCI2#2 




^TR =3778 




iKE $KS3 




IRU SKq93 




BRU SKC91 


SKC93 


SKQ SKS3 




BRU SKC05 




MIN SKC0 




MIN SKC0 


SKC©5 


LDX SKS7 



FROM SEC8ND STRING 
(IS IT NULL*^ 

m 

YESf) FIRST STRING CANN9T BE LESS# S0 

INCREMENT RETURN ADDRESS 
IS FIRST STRING NULL 



NQt THEREF&RE 
RETURN 



IT IS GREATER 



STRING N0T NULLt GET CHARACTER 



SEC8ND 

AS 

IN 

GCI 

C8DE 

AsevE 



G0T IT 

TRY T0 GET CHARACTER 

FR8M FIRST STRING 

IS IT NULL$$ 

N0 

YES $0 IT MUiT BE LESS, RETURN WITHeUT 

SKIPPING 
N0T NULLt GET 
CHARACTER 
AS 
IN 
GCI 
C0DE 
AB0VE 

AND COMPARE WITH CHARACTER 0F 2ND STRING 
N0T UAL 
EQUALt LQQP 
CeMPARE FURTHER 
LESSf RETURN WIT0UT SKIPPING 
GREATER SKIP 
TWICE 
RETURN peiNTf REST0RE X 



THIS 



$$SCH 



$CH12 



SCH13 



iRR SKCe AND RETUR 

R9yTiNi:# CAtUED WITH BRS 5j SEARCHES A 
APPROPRIATE ENTRY F0R THE STRING IN ABt 



HASH TABUE FdR AN 
IT SKIPS IF THE STRING 



IS ALREADY IN THE TABlE. 
PARAMETER TABLE AND D8ES 
PRESERVED IF THERE 1$ NQ 
TAilE AND A THE VALUE 
STA ^CHi 



^Ti 


5CHH1 


STA 


SCH5 


STB 


SCH5*1 


Q8A 




iUi 


^CH5 


STA 


SCN9 


RCH 


402B 


SKG 


13 


iRU 


SCH12 


IDA 


i77777777B 


STA 


SCHJO 


STA 


§CH1| 


^RU 


SCH13 


IDA SgHi4#2 


STA 


SCH3.0 


LPA 


SCHi5#2 


STA 


SCHU 


CXA 


REC9VER 


LSH 


3 


STA 


SCH4 


IDA 


SCH5 


ADD 


ii 


MUL 


i|2525253B 


RCH 


^OiB 


Lf^SH 22 


IDA 


0#4 


LOX 


U4 


XXB 





LENGTH 



QTHERWISE 
N8T SKIPf 
SKIP# BUT 
THIRD W8RD) 
PUT STRING 
PQJNTER AWAY 
{TW8 COPIES) 



IT SAVES THE INDEX df THE 
X IS PRESERVED. A AND 8 ARE 
B Ii THE INDEX IN THE HASH 
IF A MATCHING ENTRY IS F9UN0 



LENGTH aF STRING 
AND SAVE IT 

CeMPUTE HASH TABLE INDEX, 
CAX ♦ QLB 
FI(3URE 9UT MASKS F9R FIRST 3 AND LAST 3 

CHARACTERS 
IF STRING IS LESS THAN 3 CHARACTERS L8NG 
N8T LESSt THE MASK 
IS ALL 
eNES 

LESSi GET THE FIRST 
CHARACTERS MASK 
AND THE LAST 
CHARACTER'S MASK 



MULTIPLY BY 8 
AND USE IT TS 



START THE HASH C9DE 



C8MPUTE W8RD ADDRESS F8R FIRST CHARACTER 

8F STRING 
CAX + CLA. WORD ADDRESS T9 X 
CHARACTER ADDRESS T8 B 
GET FIRST W8RD 9F STRING 

GET SEC8ND W8RD 



SCH^O 



Exy 


§CH16#2 


ETR 


SCHIO 


IRSh 


\ 12 


ADM 


SCH4 


aA 




LSN 


12 


ADM 


SCH4 


LDA 


SCH5*l 


WL 


iJg525253B 


RCN 


#048 


URSh 


^ 22 


IDA 


0/6 


IDX 


p1i6 


XXB 




ixy 


SCH17#2 


ETR 


SCHU 


URSi- 


^ 12 


ADM 


SCN4 


CIA 




USH 


12 


ADM 


SCH4 


LDX 


SS03 


IDA 


1#6 


SUB 


0#6 


XMA 


SCH4 


IR^H 


4 23 


DIV 


iCH# 


CUA 




USH 


1 


DIV 


i3 


MUl, 


f3 


USH 


23 


ADD 


0^6 


^AX 




STA 


SCH20 


IDA 


fl 


STA 


SCH52 


IDA 


0#6 



SHIFT Se THAT FIRST 3 CHARACTERS ARE IN A 
G9T FIRST 3 CHARACTERS 
FQUD THIg 

W8RD IN HAUF# ADDING THE 
HALVES 
T6 THE HASH 

C8DE BEING ACCUMULATED 
REPEAT 
THE 
ABaVE 
F^R 
THE 
LAST 
THREE 
CHARACTERS 

eF 

THE 
STRING 



RECaVER ADDRESS 8F C9NTR8L TABLE 
CeMPUTE LENGTH 
8F HASH TABLE 
AND GET 
HASH C0DE 

Mep 

THIS LENGTH/ 

AND AN 

IVEN MULTIPLE 

eF 3 

TURN IT INT8 A HASH TABLE ADDRESS 



SET THE 'DID WE PASS 8VER A «1 (DELETED) 

ENTRY* FLAG 

T9 tN6'9 

BEGIN LeeP T9 SCAN HASH TABLES N9TE 



* 






# 


CXB 






IDX 


SS03 




SKE 


f»l 




PRU 


**2 




IRU 


SGH5JI 




SKE 


iO 




IRU 


SCN8 


SCHi8 


STB 


2i6 




IDA 


SCH52 




$m 


SCH52 


# 


STA 


2i^ 




UDA 


SCHl 




IDi 


SCH1*1 


# 


iRU 


XP^P 


SCH8 


ETR 


fl77777B 




STA 


SKSl 




C8X 






IDA 


i#6 




eTR 


»i77777B 




STA 


IK^l^l 




SUB 


SKSl 


j4 


$KE 


SCH9 


"W 


BRU 


SCH7 




IDA 


SCHl 




ID8 


SCHl^l 




iRM 


SKC8 




BRU 


SCN7 




PRU 


t-i-S 




BRU 


SCH7 




MIN 







CXA 






ETR 


•777778 



THAT THE SCAN Q9E$ BACKWARDS AND IS 
CYCLIC 
SAVE INDEX 

IS THIS A ml (DEFEATED) ENTRY 

N9 

YES 

N8f IS IT EMPTY 

N8t 

DID WE PASS A ^1 ENTRY 
■ BEF9RE FINDING THIS Q ENTRY 
YES. LEAVE THE INDEX eF THE 
*1 ENTRY AS THE EMPTY SLeT# SINCE IT IS 
THE NEAREST AVAILABLE SL8T Te THE CeMPUT 
ED ADDRESS F8R THE STRING 
REST8RE 
A AND B 

AND EXIT THR8UGH A SYSTEM R0UTINE WHICH 
CHECKS F8R TIME eVERFLSW 
ENTRY NST EMPTYt MASK 9UT T8P 8 BITS 
AND ST8RE FIRST WBRD 8F ITS STRING P8INTER 

08 THE SAME 

F8R THE 

$EC8ND W8RD 

C8MPUTE LENGTH 

D9ES IT MATCH LENGTH 8F STRING BEING 

SEARCHED FSR 
N8f G8 8N T8 NEXT ENTRY 
YES 

CALL SKC8 

F8R C8MPARIS8N 8F STRINGS 
N8 MATCH 
MATCH 
N8 MATCH 

AND INCREMENT PeR SKIP 
PUT INDEX 
INT8 





CAB 










I.DA 




2*6 






kDX 




SS03 






BRU 


XP^P 




SCH7A 


CBX 








SCH7 


CXA 








w 


IDX 
ETR 




SS03 
1777777B 




• 

• 


SKI 

BRU 
IDA 
SUB 

CAX 




0*6 

♦ -f 2 
U6 
13 






SKE 




SCN20 


HAVE 




BRy 


SCH50 






IDX 




SS03 






LD8 




i,| 






m\j 




SCHiS 


GIVE 


semi 


SKN 
IRU 




SCN52 
SCN7A 
SCH52 




W 


iRU 




SCH7A 






0ATA 




0#77600000i# 


777774Q0 




DATA 




0*377Bil77777B 


SCH16 
* 


N8R 









« 


LCY 
ICY 


16 


8 




SCHi? 


RCY 
RCY 

mp 


16 


S 





* BRS 


6 INSERTS TME MISSING 


STRING 



AND VAIUE INT8 A 
REST8RE X 
AND EXIT 

ENTRY D8ES N9T MATCHt 68 9N T8 NEXT 8NE» 

INDEX BF CURRENT ENTRY T8 A 
GET ADDRESS 8F C8NTR8L. TABLE 

MAVE WE REACHED THE BEGINNING 8F THE 

TABtE IN euR BACKWARDS SCAN 
N8 

YESt CYCLE T8 END 
M8VE D8NN T8 THE NEXT ENTRY (EACH 

ENTRY IS 3 W8RDS) 

WE MADE A FULL CIRCLE 
AND L8aP 



UP 



F8UND A *X ENTRYi IS THE FIRST 8NE 
N9, D8 NOTHING 

YESf SET FLAG P8SITIVE ADD T8 ADDRESS 8F 
ENTRY F8UND 



MASKS F8R FIRST 3 CHARACTERS 8F STRING 

N8T 3 CHARACTERS L8NG 
MASKS F9R LAST 3 CHARACTERS IF STRING 

N8T 3 CHARACTERS L8NG 
SHIFT INSTRUCTISNS T8 GET FIRST 3 

CHARACTERS 9F STRING IN A REGARDLESS 

CHARACTER ADDRESS 
8F THE FIRST CHARACTER 

SAME F8R LAST 3 CHARACTERS 



IS 



8F 



$SSIN 


UDX 


SS03 




IDA 


2#6. 




SKA 


540000000B 




BRU 


TRAP 




CAX 






IDA 


SSOl 




STA 


0«6 




§Ti 


1#6 




CX8 






IDA 


a#6 




LDX 


SS03 




^m 


XP9P 


STPl 


im 





QCU 


im 





GCI7 


ZR9 





WCHl 


im 





WCH2 


zm 





SKSI 


iss 


2 


SKS2 


zm 





SK$3 


ZRa 





SKS-lf 


8SS 


2 


SKS5 


BSS 


2 


SKS6 


IRB 





SKS7 


|R9 





scNi 


BSS 


2 


SCH5 


BSS 


2 


SCH^ 


?Ra 





SCH9 


ZR8 





SCHIO 


IRQ 





SCHil 


IRQ 





SCH^O 


pa 





SCH5a 


|R9 





« 






« 






* 







WAS TABLE FULL 
YES# CAN'T FIT 

N9 



NEW ENTRY 



MASK reR FIRST 3 CHARACTERS SF STRING 
MASK F8R UAST 3 CHARACTERS dF STRING 
STARTING L8CATI0N F8R SCAN 9F HAST TABLE 
FLAG IS »1 IF N8 -1 ENTRY HAS BEEN 

ENC9UNTERED DURING SCH SCAN# THE INDEX 
8F THE FIRST SUCH ENTRY ENCOUNTERED 
9THEWISE 



♦ FLaATING P8INT ARITHMETIC 



♦ FAD 


FL8ATING ADD 


FAD 


P9PD 


i56000008n#l#0#l 


tFADE 


STA 
CLA 


SSOl 


FASE 


iTX 


SSQ3 




ITA 


FtAG 




ST9 


ZM 




STE 






STX 


ZE 




IPX 


SS03 




EAX* 







CLA 






SKE 


0i6 




0RU 


FAN 




CUA6 






IRU 


FIAD 


FAN 


IKE 


SSQl 




BRU 


FAX 


aA^ 






§RU 


FLAG 


FAX 


CXA 






IPB 


1#6 




STE 






XXA 






sua 


ZE 




SKG 


mm% 




BRU 


FLAGM 




SKA 


»«»|00B 




IDA 


i39 




XMA 


SSOl 




IDB 


ZH 




RSN# 


SSOl 




XAB 




F^AC 


$m 


FLAG 





BRU 


FAS 




MRa 


§7778 




SUB 


U6 




EeR 


i777B 




XAB 






sue 


0#6 




BRU 


FIAF 


FAS 


CQPY 


A#E 




ADO 


i^6 




XAB 






ADC 


0^6 


FLAP 


STE 




FLAST 


^VT 






IRU 


FLA0S 




mo 


38 




SKA 


a*l 




IRU 


FLANZ 




ax 




FIANZ 


XXA 






SKQ 


i*257 


FlAdF 


BRR 


FUA6A 


Fi,A8K 


XXA 




FLAX 


evT 






BRU 


FU9F 


FIAXJ 


UDE 






IDX 


SSQ3 




BRU 


XP9P 


FtASA 


DATA 


iOOOOOOOB^-FtAeK^l 


FLAGM 


CNA 






SKA 


i^lOOB 




UDA 


139 




lOX 


0i6 




XXA 






RSH 


0*2 




C8PY 


BjE 


FIAD 


SKN 


FLAG 




BRU 


FLSS 




XMA 


SSOl 




XA3 





SET eVERFLQW DEV|eySLY 





XMA 


Z^^ 




SUB 


ZM 




XA8 






luc 


SSQl 




IRU 


FIAF 


FISS 


XAB 






ADD 


ZM 




XAB 






ADC 


SSQJ 




PRU 


FUAF 


FLAes 


RSH 


1 




E8R 


f40000000B 




PRX 


FLAX 




XXA 






§m 


*255 




iRU 


¥L^^K 




IRR 


FUA9A 


rier 


BRX 


#•2 




8RU 


F1.9U 




CIEAR 






LDX 


SS03 




SRU 


xpep 


ru^J 


^0R 


940000000B 




RSH 


39 




E9R 


»40000000B 




Iax 


255 




iRR 


Fieji 


rit^ji 


im 


FLAX1»1#1 


# FSB 


FUaATINa SUBTRACT 


rsB 


P8RD 


i5500000BniU0#l 


$rsiE 


STA 


SSOl 




UDA 


?•! 




BRU 


FASE 


# FNA 


Fl,8ATING 


CNA (BRS 21) 


$FNA 


^DX 


SS03 




BRM 


FNAS 




BRU 


ycpdp 


FNAS 


IRQ 






^TX 


FNASX 



SET aVERFiew DEVI8USUY 





IKS 


i»1000S 




iRU 


FLNA 




CNA 






5KE 


«0 




SKA 


?17777777B 




BRR 


FNAS 




ITE 






IKE 


f^OOOOOOOB 




BRU 


FLC8M 




RCY 


X 




BRX 


FLCA 


p'lcen 


N9D 


4 


P'lCA 


XXA 






SKG 


fe55 




SKG 


f 357 




BRR 


FNA9FL 




iRU 


FLNBI 


FNA0FU 


ZR9 


FNAaF2,»lil 


FNA©F2 


XXA 






E8R 


f^OOOOOOOB 




RSH 


39 




E8R 


f40000000B 




BRX 


* + 3 




EAX 


355 




BRU 


FLNB 




CLEAR 






iRU 


FLNB 


FLNBl 


XXA 

Rav 




FLNB 


LDE 




FIMX 


LDX 


FNASX 




©RR 


FNAS 


FINA 


STE 
XAB 
CNA 
XAB 






E9R 


s«i 




Bm 


FLNB 


* ISC 


INTERNAL T8 STRING C8NVERS|9N 



liC^ 


N8P 


lOOOB 


lie 


P8PD 


H0O0OO0Bil#i/0#l 


^ISCl 


STA 


ssoi 




IDA 


isca 




8RU 


sci 


* SIC 


STRING 


T9 INTERNAL CQNVERSJQN 


sjca 


N9P 


JOOIB 


SIC 


papo 


14100000B#l/1^0/l 


$sici 


STA 


ssoi 




LDA 


SICg 


SCI 


STA 


BSX 




STB 


SS02 




STX 


SS03 




EAX* 


P 




CXA 






ETR 


ADMSK 




iTA 


USE 




m\j 


BSE 


* FMP 


FL9ATING MULTIPLY 


PMP 


P8PD 


15400000B#l#l#0#l 


$rMPE 


iTX 


$S03 




STA 


SSQl 




STI 






STX 


ZE 




BAC 






IDX 


SS03 




|AX* 


Q 




yRSH 


2 




MUl 


0#6 




STA 


^M 




UDA 


1/6 




CX8 






S8PY 


AXjAjE 




XXA 






ADM 


ZE 




cepY 


XA#BX,B 




LRSH 


2 




MUL 


SSOI 




ADD 


ZM 





MUU 


f2 






ST8 


ZM 






XMA 


ssoi 






MUl 


0/6 






XA8 








ADD 


ZM 






XAQ 








ADC 


SSOI 






UDX 


ZE 






SKA 


5377777778 






iRU 


FLEND 






SKi 


flOOOB 






iRU 


FIENQ 






iKE 


P40000000B 






iRU 


FUND2 






RCY 


X 






BRX 


FUENO 




FUEND 


N6D 


4 






R0V 








XXA 








SKQ 


»255 






SKG 


§•257 






BRR 


FLA©A 






XXA 








UOE 






r|,ND2 


i«DX 


SS03 






BRU 


XPQP 




♦ FDV 


FIQATINQ DIVIDE 




FDV 


P9PD 


15300000B#1#1/ 


Oil 


$FDVE 


§TX 


SSQ3 






STA 


SSOI 






STE 








STX 


ZE 






LDX 


SS03 






EAX# 









RSH 


2 






PIV 


0/6 






9VT 







BRU 


rDV8 


STA 


ZH 


lAC 




RSN 


I 


STA 


ssoi 


UDB 


1#6 


CXA 




$TE 




XXA 




CNA 




ADD 


i2 


ADM 


ZE 


PAC 




RCY 


2 


CNA 




^^l 


ZM 


ADD 


SSOI 


DIV 


Q/6 


MUl 


• 2 


ADO 


ZM 


LDX 


ZE 


SKA 


i*l 


iRU 


FIEND 


iRU 


FUND2 


FPV9 UDA 


SSOI 


E8R 


0/6 


iRU 


F19U 


# ST0RAiiC 




ZE im 




ZM |R9 




FLAG ZRS 




FNASX ZR9 





# PRINT UNSIGNED INTEGER 

# m$ 36 

# INPUTS A«NUMBER» B«RADIX. X»FItE N8. 

$^UTNUM STA 9UTN92 

STB 9UTN93 



9UTN86 

eyTNa? 



STX 
CBA 
SKQ 
BRU 
QIA 
STA 
LDA 
STA 
LRSH 

DIV 
SKE 

BRU 
C0A 
ADP 
SCI9 

IDA 
SKE 
&RU 
LD8 
UDX 
iRU 



9UTNe5 

fl 
TRAP 

9UTN94 
QUTN92 
SUTNei 
23 

9UTNQ3 
QUTNe4 
9gTN97 

i20B 

9UTN95 

9UTN91 

9UTN92 

9UTN96 

9UTNe3 

9UTN95 

EP9PX 



» DEMAND SIGNED INTEGER 

♦ BRS 3$ 

♦ JNPUTJ BuRADIXt 

♦ eUTPUTJ Af NUMBER 

» 



X*FILE m* 



$GETNUM STX 
©AC 
STA 
§TB 

STB 

GETNM SCI9 

SKE 

BRU 

@RU 

SKE 

IF 

BRU 



GETN9i 

GETN92 
QETN93 

GETN97 
GETN91 

n3B 
♦ *2 

GETN96 

?15B 

V6 

GETNMl 



Pt^US 



MINUS 



EISF 


1 


§RU 


GETN96*l 


|NDF 




UDA 


»*i 


iTA 


GETN97 


ge:tn86 scia 


GETN9i 


SUB 


»20B 


SKG 


«•! 


BRU 


GETN94 


SKG 


QETNe2 


IRU 


GETNQ5 


QETN8# ADD 


t20B 


CAB 




IDA 


GETN93 


IKN 


GETN97 


iRU 


ER9PX 


CNA 




PRU 


EP8PX 


GglHdB SKE 


GETN02 


BRU 


« + H 


BRU 


GETN9# 


XMA 


GETN93 


mi 


QETN92 


ISH 


Z3 


ADH 


QETN83 


BRU 


GETN96 


IF 


V6 


QITNMi SKE 


lO 


iRU 


*'^2 


3RU 


GETNM 


SKE 


■ 1558 


IRU 


QETN96*! 


iRU 


GETNM 


INDF 




# FIX AND F|^&AT 


$FFIX SKA 


X4 



IQN9RE LEADING SPACES 



1GN9RE LEADING C.Rt 





IRH 


FNAS 




IKp 


i23 




8RU 


FIXBJG 




C9PY 


©#E 




RSH 


o#a 


nxiND 


IKN 


SSQl 




m\j 


FENDI 




iK9 


*•! 




8RU 


» + 3 




CNA 






IRU 


rENDl 




XA8 






ceR 


ftj 


nm% 


UDX 


SSQ3 




8RU 


XP9P 


FIXeiQ 


caPY 


B^E 




LSN 


0#? 




ITR 


XX 


JL 


iRU 


FIXEND 


^rrt^T 


ae 






SKE 


»0 




iRU 


**Z 




iRU 


XP6P 




LOX 


i23 




N8D 


4*3 




LDE 






IDX 


SS03 




^RU 


XP8P 




END 





DOUBLE PRECISIiN NEGATE lEGINS 



D0USIE PRECI^IiN NEGATE ENDS 



T lOENT 6/30/67 

# M9N|TaR MSDUUE 

ENTRY SETSA 
# 
# 

# tiePSETt 9/27/65 
# 

# THIS ROUTINE INITIALUEi THE riLE C8NTR9L TABLE AND Atl 

# N8N.TEUETYPE 1/6. 
# 

I^PSET imi IF mVXi 8RM LCLRSJ ENDFj IDA -100000036; lDX »-NFILE+3 
IIETl ADD ill STA EFA^2; BRX ISETU tDA p3| STA FFLST 

IF V3 

IDA »aaOOBl STA U0GFJI (L8G C9NS8LE*0) 

^USF I 

UOA i2Q13B; STA U8QFIL (LSG CSNSeLE i U) 

ENDF 

LOX tlADIU; IPP fl; STB EFAU STB L0GFUQ 

If Vd# STB SWCIT; ENPF 
liETS $Ta EOlUiS; BRX ISETg; UDX iNNOEV 

IIET3 LOA £8yF$i2; SKA »i*OOOQB| ©RU •'^2; STB ADIU,2; BRX ISET3 
ISET6 CXA; SKE «NTAPf:; BRU * + 2i ^RU ISET^ 

STB TjN9i2; CUi STA TSTATEi2; STB TAPREL#2 

STA TD|BA#2i STA TDFNai2| EAX 1/2; BRU ISET5 
liET4 CIA; STA BLK31; ARMI AIRWD; BRR I8PSET 
# 

# 'ORMSET' 

# THIS RQUTINi INITIALIZES THE DISC I/Qi 
« 

DRMSET BSS 

DRHRST IRhi IDA ••!; STA NPCL; STA IDCLI; STA DTXSl 

STA IDHRET; CLA; STA IDRS 

LDA "DRQ; STA EDCl; STA |DCl; BRR DRMRST 
# 
# 

IF VI 

# fRADSET' 



♦TTYSET' 9/86/65 



* THI§ RQUTINE INITIAIIZES THE RAD |/8 
# 

RADSET IRdi UDA '^^Xl STA HRQll 3TA RTXSi 

IDA fRAOQJ STA ERCLi STA RUIS; BRR RADSET 

« 
# 

# 

# 
# 
# 
TTYSET ZR© 0; STA SRFUG 

IDA fLTTYMJ; STA Tj COPY A, XI STA TTYBgF#2j 

UOi iTTYBUF; LPA tNTTB^U STA T; CUX 
TIITl STi TJi##2; ITB TIS5|2| STB T6i#^2j| STi T9S5#2 

$KN SRFia; BRU T§IT3; IDA tlTTBli STA TTYT8L#2 

LDA ADMSK; STA TTYAS(3/2 
T$ET3 CLA; STA TIS2#2; STA TTYFLG#2; STA TTY9RK/2; STA 



TNIi ReUTINE 
IT IS CAILED 
W8RD$ ARE T9 



INITIALIZES THE TELETYPE HARDWARE AND TABLES 

WITH •! eR DEPENDING QN WHETHER TTYASGi TTYTBL AND LINK 

BE RESET m N8T 



EAX X*2i SKR Tj BRU *-3 



TTYTlH^a 



LDA Te§5i2i ADD TTYLNGiHi ADD Mi C8PY A8#XA 

IF «V5 

MRQ ilOOOOOB; STA TTCH^ TTYSl P8T TTCH 

ENDF 

LDA i-U STA T8S2#2; STA T8S3i2 

LDA TTYLNG#2l CNA 

XXB; STA ^l/2i XXB; EAX 1/2; SKR T; BRU TSETl 

LDA 9mXi STA ATIS2I LDA fATTBUF; STA ATIS4i STA ATIS5 

SKN SPFLOi BRR TTYSET; LDX i»NU8B^-2; STX ETTN9 
TIIT2 CXAi ADO iNgeS^ STA ETTN0#ai BRX TSET2 

IF V5 

LDA fl; STA FULST; LDA «100000Bi STA TTCH 

TTYS; PeT TTCH; MIN TTCH; TTYS; P8T TTCH 

LDA fgOOOlB; ApH TTCH; TTYS; P8T TTCH; M|N TTCH 

SKR TSET^I BRU *«4 

BRR TTYSET 

ILSF i 

LDA »l; STA FULST; BRR TTYSET 

ENDF 
SRFLG ZR8 



TTCH im 
rmt^ DATA NTTY»3 

« 

# SYSTEM INITIALIZE RQUTINE 
« 

SITSA UDA X^l STA REA^i BRM SSET 

BRM QRMSET; BRM RADSET; CKN; E|R| aRU PACGSl 

# RESET SYSTEM 

SIET ZR8; IPX =»77B| UPA CLINTC; STA iOOB^Sl BRX #-1 

gTA SETSET 

LPX ?pNPAC#NPPAR| STX CL9CK3/ CLB 

UDA »SMTi STA ADRSMT 
S|T| LDA ■7000008; STA PTESTj2 

CXA; ADD "PPTRi ADD iNPPARi STA PPTR#2 

EAX NPPAR.li6j BRX SETl 

LDA iPPTRS; STA FP^ST; STB PPTRU 

STB PUCTRJ UDX N^Q 
SIT6 LDA QlE#2l STA QX*2} SUB iPNEXTj SUB ^3; STA Q1N|£ 

EAX 2#6; BRX SITl; SUB NLQl LDX i'i3i STA Q1N#2 

LDX s»NPAC»NPPAR; STX PACPTRJ STX PUPACPi LDX »-»NPPAR 
SE;T2 LDA EPUPDi2; STA PACTl/2i BRX SET2 

LDA PACPTR; LDX »QTI| BRM QPUT 

LDX ii»NPUQ*4 
SET3 QXA; APP *E;PUCT3j STA EPUCT#2 

EAX 3#6J BRX SET3J CLBJ STB EPUCM3 

LDA iPUCT; $TA FPULST; LDA iPUBPTR; §TA PUBPTR; STA PUEPTR 

LDA 125; LDX ••NSMEM; STA ESRMC#2; BRX ♦•! 

IDA i-X 

IP V3 

STA PMIN 

LDX «»NTTYl STA EWER|S#2l BRX *,% 

ENDF 

LDX iNSM£M»NMEM/ STA ERMC#2; BRX **1 

BRM RSAMi LDX i«NM|M| CLA 

STA ERMT#2; STA ERMA^a; BRX ♦•2 

LDX f»NU9BJ CLA; STA EPMTP#2; BRX *^X 

IF V5; STA N8ACT; ENDF 



SKN MifSKl 8RU SET4 

LDX i»8; UDA »25l STA ERMC#2i BRX #-| 

LDX f»8; IDA X6; STA ERMT#ei BRX «-l 
S|T<^ UDA iSTj LDX «»100i+NReP^ STA 200B«NPeP#2j BRX #*1 

iTA I77i^ LDX fWDTi«WDTE 

UDA WDTEiH; STA* WDTE+1#2; BRX ♦+li BRX ♦-S 

IF V6; IDA pACSTi STA PACSTi ENDF 

UDA fDAWi add DISCAj ADD DRC; IDS sCAW 

LDX i#OOQBi BRM GDCi BRU *»6 

IDA iDADSCl ADD DI^CA; ADD DRC; UDB iCADSCi IDX «#000B 

BRM QDC; BRU *»6 
$iET5 UDA iDAEXEC; ADD DISCA; ADD DRC; LDB »CAEXECi LDX «4000B 

BRM GDC; BRU ♦»6 

LDA iRAEXEC; UDB wCAEXECj UDX «4000B; BRM QCRi BRU *p4 

UDA i^OBl ADM iDAEXECi ADM wRAEXECj SKR EXP; BRU SET5 

UDB i25j UDA SMTAD^ ADD X4| UDX »8| ADD t56BJ STA RMT^2 

STB RMC#ai EAX 1#2| ADO nil STA RMT#2; STB RMC#2 

BRM lePSETJ UDA f^j BRM TTYSETi BRR SSET ''" " 
SMTAD DATA SMT 

CAEXEC EQU 54000B C8RE ADDRESS FSR EXEC 

EXP DATA 3 m* 8F EXEC PAGES •!# 

* 

$GCR ZR9; 

STB GCRU; STA GCRUl; UDA GCRU; ETR ADMSKj RSH 14 

CXA; ETR •77777B; UCY Hi STA GCRUSi USH 19 

UDA GCRUj ETR 1140000B; CBX; RSH 14 

QXBi USH 5; MRG i6l4g00Bi STA GCRU3 

RSR; BRU *»li AURi P9T GCRU'l 

EeO* lOOOOB; EXU^GCRUSJ P0T GCRU2 

WRF 

RSRJ BRU *«U CETEi BRU GCR2; RSE; BRU GCR2 

MIN GCR 
QCR2 BRR GCR 



PUPD DATA O#PUQ0#O/O7OlO2O3B#O#O5O6OOi 





PATA 0#PACDMB*47 


EPyPD 


EQU 


« 


WDTB 


EQU 


« 


WDPJT 


PRM 


TRAPU ^08 


WPIHT 


©RM 


TRAPM; 418 


WDRMT 


BRM 


TRAPRi 43B 


WDUMT 


PRM 


TRAPT; 448 


WP31 


BRM 


INT3U 3iB 


W033 


BRM 


INT33; 338 


WDPWNI 


BRM 


PWNIJ 361 


WPPWFI 


BRM 


PWFIi 37B 


WDCP 


BRM 


CPUPl 56B 


WDI8P 


BRM 


I8PJ 57B 




BRM 


RADU 6#B 


WPIOM 


BRM 


RAPI2J 658 


C19CKI 


BRM 


CLINT; 74B 


CL0CK2 


SKR 


CUeCKS; 75 


WPTI 


BRM 


Tin 2001 


WPT6 


BRM 


Tei; 201B 


WPTN 


BRM 


TNJi 2028 


WPTF 


BRM 


TFI; 203B 




BRU 


204BJ 204B 




BRM 


ATlIl 205B 




iRU 


206B; 2068 




ir 


-VI 


WpATI 


BRM 


ATin 2078 




ENOF 


WPTE 
« * 


EQU 


* 


WRITE 


LPA 


f34000B| LDB 



»2100B; LPX »4000B; BRS 1051 BRS 10 



END 



3iYMS IDENT 7/Q1/67 



ENTRY 

IP 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

ENDF 

ENTRY 

ENTRY 

ENTRY 

ENTRY 

INTRY 

^NTRY 

ENTRY 

ENTRY 
ENTRY 
ENTRY 

ENPF 



VERS 

VI 

DPAIl/PRC 

XBERR/FDERR#TN|CTR#TFICTR#ARM8T#N9VP#ECNTR 

TNIAC/TFIAe^CXTPg^NBUS/PeWN 
DSWAPC|SWAPC#PAGES|TnCTR#T0lCTR 
CNNERR#RCERR#RADERR#RUERRj I2ER#CPUPCi IQPC 

TNERRjTURERR#TRERR#TWERR|DRMERR#DRUERR#WERIS 

TAPREljBRSTV#PWFi,iM48K 

CTP/TSTATE#HTFU#TJN9#WR4X3#XWR4X3 

PACPTR#J8B#UTTY*TJ9B#PMTJ9B 

PMA/WERIS 

STIME^REAU^SETTBjETTB 

PHTP#RU3|APR?MT 

V3 

CPARW,AUNN^EAUNN^PMIN/ACST#PACST 

XPB/EXECl 

XCIEAN 



# CONSTANTS 

« 

PACPTR 



ANP TABLES 



UTTY 

XPB 

EXECl 

Tyei 

PMTg0B 
ADRSMT 

DRC 



ZR9 
^R8 

ZR8 

ZRe 

ZR9 
ZR9 



DATA 
DATA 



PB POINTER 
NEGATIVE FeR 



ADDRESS 
20000B 



eF SMT 



SUBSYSTEM STATUS 

ELAPSED TIME POINTER 
P8JNTER T8 CURRENT PMT 



•1 F8R 48K. F8R 64K# 

CONSTANT F8R LQCATINQ EXEC 0N DISC 



VIRS 



ASC 
ASC 



♦000' 



♦ 4^B 

PMA 

PMTP BSS 

$^PMTP EQU 

R13 8SS 

*|RU3 BSS 

wiris bss 
$Iwi:ris equ 



INDEXED TABLES 
iSS NJ8B MACHINE SIZE INF9 

Ngee pqinter T9 first pmt entry 

PMTP+NJ6B 

NhJ9B M9NIT9R MAP, SH0UID C9NTAIN 8NLY TS BLQCK MAP 



NTTB USER ASSIGNED T9 TTY 



# EXEC 
CPARW 

# 

AUNN 

EAUNN 

ACST 

tfACST 

♦ EXEC 
*SWEX 
*iwiET 
$PACST 
*NaVP 
*ACA 
DtWN 
*N0ACT 
^SWMBL 
$$WMBM 
igNMSK 
$SWFD 



IF 



V3 



PARAMETERS 
BSS NJ8B 



BSS 

EQU 

BSS 



Nue{ 

64 



USERtS C8NTR8L PARAMETERS^ 
BITS? OpSUBSYSTEM/ IpDEVICEj 

ACCT/USER N8S# 



a»9PERAT0R| 3«SYSTEM 



SWITCHISf SET BY BRS BE*13 

LETTER ROUTINE SWITCH 



BSS 
DATA 

-^Ra 

ZRS 

im 

DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
ENDF 







ACST 









• i 

773777771 
Q 



NEW 0VERFL9W P0INTER 

ACC0UNTING AREA 

SET TB •! IF SYSTEM GBINQ D9WN 

ACC9UNTING SWITCHt -1 FdR ACC9UNTlNQi 

MAIL Bex LIST BUSY 

MAIL B9X MESSAGES BUSY 

SUBSYSTEM ENABLE MASKt 

FILE DIRf BUSY F9R USER SPECIFIEDt 



» SYSTEM PARAMETERS 
ECNTR DATA •87 



N8f 9F PARAMETERS 



TNIRR 


ZR9 





TURCRR 


tm 





TRERR 


zm 





TWERR 


ZR9 





P^^l 


IRQ 





CMNERR 


im 


Q 


ORMIRR 


IRQ 





ORUERR 


im 





DFAIl 


IRQ 





RCERR 


ZR9 





RADERR 


IRQ 


Q 


RUERR 


IRQ 


Q 


MIB 


IRQ 





CPURC 


IRQ 





ISPC 


IRQ 





RIAL 


IRQ 





STIME 


IRQ 





DiWAPC 


IRQ 





SWAPC 


IRQ 





PAQES 


IRQ 





ARMar 


IRQ 





TIICTR 


IRQ 





reiCTR 


IRQ 





XBERR 


IRQ 





PDERR 


IRQ 





TNICTR 


IRQ 





TFICTR 


IRQ 





TNIAC 


IRQ 





TFIAC 


IRQ 





EXTPU 


IRQ 





NiU2 

jf, 


IRQ 





XCIEAN 


DATA 





CTP 


DATA 


2/2 


TiTATE 


DATA 


OiO 


TAPREL 


DATA 


0#0 


MirL 


DATA 


o#o 


TJN© 


DATA 


0/0 


♦TDIBA 


DATA 


0/0 



NeiSi: RECQRDS READ 
PERMANENT READ ERRORS 
TBTAl READ ERR8RS 
T9TAU WRITE ERR9RS 
N0« Qf P9WER FAIUURESt 
T8TAU DI^C CHANNEL ERRBRSt 
T9TAL DISC ERRBR$ 

UNCORRECTABLE DISC ERRORS 
DISC FAILURES FOUND BY SOFTWARE CKSUM, 
RAD CHANNEL ERRORS. 
RAD ERRORS* 

UNCORRECTABLE RAD ERRORSi 
IB RAD ERRORS WITH NO lit 
CPU PARITY COUNT 
IB PARITY COUNT 
NO, 8F CLOCK TICKS 
TIME IN SY$TEM MODE. 
NO, OF TIMES SWAP CALLS RST 
SWAP COUNT 

NO, OF PAGES SWAPPED 
DISC ARM MOTION 
TTY INPUT INTERRUPTS 
TTY OUTPUT INTERRUPTS 

N0» OF X»8LQCK ERRORS WHILE SETTING MAP 
NOi OF FILE DIR. ERRORS WHILE SETTING DISC BIT MAP 
TTY ON INTERRUPTS 
TTY OFF INTERRUPTS 
ON INTERRUPT ACCEPTED 
OFF INTERRUPT ACCEPTED 
EXTRA P\J ENTRIES AT BRS 113 
NOt OF TIMES THRU 8RS 112« 

SWITCH USED IN SDBM, SEE :SDBMl2?+2 
CURRENT MAG TAPE POSITION 
STATE OF MAGTAPE { 0»FREEi 1*READ/ 2»WR ITE ) 
HIGHER PRIORITY TAPE REQUEST FLAG 
LENGTH OF TAPE FILE IN RECORDS 
JOB WITH TAPE LOCKED OR •! 
TAPE DRUM FILE BLOCK ADDRESS 



♦TDFN8 DATA 


0/0 


$WTDFIQ ZRe 





♦ueoFiu ZRe 





♦i,aQry(s zRa 





♦NENFLG im 





WR4X3 ZRe 


PTRf T9 


XWR4fX3 ZRa 


PTRf Te 



TAPE DRUM FILE NUMBER 
WRITE TAPE ©N DRUM IF <0 
MESSAGE leGQlNG P lit 
MESSAGE iEING leSGED F^AQ 
AUteW Ne NEW USERS IF * 
STRING BUFFERt PAGE 7. SET BY «SIT« 
STRING BUFFER* PAGE Of SET BY 'SIT? 



# iRS MeDUlE TRANSFER VECTiOR 
BRSTV DATA 100Cl0003Bjil^OetoOOOB 



# SPS C0NTReu TABl^ES F8R EXfC 



tCRTAB ZR8 
ZR9 
$CTABJT DATA 
*CTA8 DATA 
♦lYSIT DATA 
♦SYSTA8 DATA 



CHT 

SYSEHT 

CIT/0#0 

CHT^ECHT#0|C^S#ECSS#0 

SIT#0#SYSCT 

SYSNT#SYSENT#0#SYSSS#SYSESS/0 



# TIMING TABUES 

IF VI 

ZRe 

EISF X 

ZRa 

ENDF 

ZRe 

Bss Nuee 



DMJN 
RIAL 

SITTB 
ETTB 



SYS. START.UP DATE/TIME IN MINS» 



SYSTEM ETT8 ENTRY 
CeMPUTE TIME CeUNTER 



END 



3TS I0E;NT 6/30/67 
DEUSYM 

10RG EQU ♦ 

LBC6RG MACR9 Dl28RG EQU *-'ieRG; BSS PtU'-aeRG; ENDM 

UiYM MACRe D|$D(1) BSS QiOiB) EXT 0(l)+Xj2eRG NARG 

|F a@RQ»a; BSS D(3)i EISF D ZRQi IHOF i ENDM 
XiYM MACR9 D;#D(l) EQU t^^XiaeRQ NARG 

IF 29RQ»U BSS D(2); EISF ij ZR9i ENDFi ENDM 
$X EQU 34000B 



♦ TEMP iT9RAG|; FOR CLASS 2 BRSt§ 



XWR#2 



l,9C8RG 


2 






XSYM 


SBRSRT 






XSYM 


QSINI 


BRS 


33 


XSYM 


QSIN2 






XSYM 


QSIN3 






XSYM 


STRBl 


BRS 


34#35 


XSYM 


STR82 






XSYM 


STRe21 






XSYM 


STR83 






XSYM 


9UTN91 


^RS 


36 


XSYM 


8UTNe2 






XSYM 


eUTN93 






XSYM 


QUTNB^ 






XSYM 


SUTN95 






XSYM 


GETN91 


BRS 


38 


XSYM 


GETN92 






XSYM 


QETN93 






XSYM 


GETN97 






ySYM 


XWRliNRl 


3RS 


37 


USYM 


XWR2#WR2 






ySYM 


XWR3#WR3 






ySYM 


XWR31#WR31 






IF 


V3 






USYM 


XWR4#WR4#30 






gXT 


XWR4+2 







lisr 


I 


XSYM 


WR4# 


INDF 




XSYH 


WR5 


XSYM 


WR6 


XSYM 


WR7 


XSYM 


WR8 


XSYM 


WR9 


XSYM 


WRIO 


XSYM 


mix 


XSYM 


mi2 


XSYM 


WRi3 





l.8C8^3 


i25B 




ysYM 


U9RSRT#UPL 




USYM 


UA^UQA 




USYM 


UB^UBB 




USYM 


UX#UBX 




gSYM 


CMRL1#UBRII 




USYM 


CMRL2iUBRLa 




USYM 


yE#UBE 


$yiDx 


im 





EXRL 


EXT 


IXRll 


^EXRLl 


iR9 





^|XRL2 


|R9 







USYM 


PRGRLljUPRRli 




USYM 


PRGR12#UPRR12 


PRQRL 


|XT 


PRSRUi 


$iSRll 


;sR9 





*^SRia 


|Re 


Q 


SSRU 


EXT 


SSRLi 


^FDCTl 


DATA 


FDHT#ErONT|Oi {R)FDSS»1# {R)EFDSS»1#0 


FDCTLS 


EXT 


^Dcri^z 


rpCTLC 


EXT 


FOCTl'^S 



iroSS IXT ^FDSSirDSS+EFDSS 

IWQ EXT FDCTL-EFDSS 

FDHTMi EXT FDHT«1 

EFDHMl EXT EFDHT»1 

$FDHT ISS H^ 

$IFDHT N8P 



'FDSS+EFDSS-FDSS 



IF 
$DUMHT BSS 
BCHT BSS 

iSS 
SZH EXT 

INDF 

$FDSS BSS 
$|FDSS N0P 
TFDSS EXT 
$CHFD |R8 

tINFIL, iRa 
ECRFIi, EXT 
*eUTF|l ZRe 
ECDFIl IXT 
$MFD2 ZRa 
iMFDgl im 
*UTN0 ?R9 

$RFDFLQ ZRB 

# 



$RFD1 
$CF|1 
$CF|2 
$PDNl 



IRQ 
IRQ 
ZRe 

ZR9 



SSAVElt ZR8 
$$AVEFi. ZR8 
♦SAVEaR ZR8 
iSAVESL ZR8 
$C8RYi |R8 
$C8PYS ZR9 
$CePY4 ZRe 



V3 
3 

4 
BCNTtFDHT 



i2Q 



EFDSS^i 





INFIU 



aUTFIL 












Q 






•pI F9R 
READING 



READING CFD 9N 
IT 8N L8G8UT 



ENTER* F8R 



$C©Py7 ZR8 

*CePYT ZR9 

$c:r3 im 

USYM WA!T^UWAIT 

gSYM |DI8T^gi6!0T 

gSYM CIN/UCIN 

USYM ceuTiUceuT 

$UNPTR 8SS 2 

UNPTRJ CXT UNPTR+J 

ySYH UN9#yUN8 

USYM EXr^AG^UEXFLP 

$RIL,ST4f IRQ 

$9K1 ZRa 

$|XECL ^SS 7 

EXECL^ EXT i:XECl*6 



♦ PANIC TABi,E§ r9R EXEC F9RKS 



«EX$l 


^Ra 





$|XiA 


IRQ 





*SXiB 


|R9 


Q 


^fXiX 


IR8 





$EXSRl 


ZRa 





^ExsRa 


ZR8 





$iX§M 


IRQ 





$ssu 


im 





$SSA 


im 





*SSB 


im 





$ssx 


im 





$SSRl 


ZRe 





$SSR2 


im 





$SSM 


im 






# WQRKING SPACE F9R EXEC BR$'S 



$GFNi im 



${3eFN3 ZRe 
$GeFNFT IRQ 

$eFNRi:T zm 

$G©FNS iSS 
Q9FNS1 ^XT 
$NTRYi zm 
$TMiGl ^R9 
$rNi |R9 
$FNH IRQ 
$FNPTR PSS 
FNP'TRi EXT 
I0FTR ixT 
laPTRl ixT 
$INSFNl ZR8 

$UFDci im 

$PF1 ;^R9 
$DF2 ZR9 

tcFi zm 

*K|Ul |R9 

$KiULa zm 
$Kiiii iRa 

tQETPU i;Rt 
$GETSTL zm 
$XM1 ess 
XMU EXT 

*DEtl |R9 
$DE12 ZRe 
$0EL3 |R^ 
$0114 |R8 
$FDELi ^Re 
$FDELa ZR9 
$FDE13 |R9 
$FDIL4 ZR9 
$FD|l4l ZR0 

$MSZ2 zm 

$PRMAl ZR9 














2 

Q9FNS^i 









z 

FNPTR+I 

FNPTR 

FNPTR+1 



Q 

Q 














2 

XMl + 1 














CSYS2 EXT PRMAl 

$PRMAa IRQ Q 

CDEra EXT PTRl 

CDIF4 IXT PTR2 

CDCFS |XT PTR5 

$PTR1 |R8 Q 

$PTR2 ^RQ 

$RTSTAT IRQ 

$PTR3 IRQ Q 

$PTR# ^Re 

$PTR5 IRQ 

$PMTrL ZR9 
SMAGTFT IRQ Q 

*MA(3T IRQ 

$MTrLl |Ra 

tTENP |;R8 Q 

$MTPFN ZR8 Q 

*UNai IRQ 

$PUMP1 IRQ 

$ECDMP6 2R9 

$gcny$ IRQ 

$RIC2 IRa 

$RIC3 IRQ 

$|RB1 IR^ 

$|RBg ZR9 

$ER83 ?R9 

$DRSW| IRQ 

$DRiWa IRQ 

$DRSW3 |Ra 

$PRSW^ IRQ 

$DRSW9 IRQ 

$SYSTl ^R8 

$|Y|RRL 2R8 

$RSYSi IRQ 

$RSYsa iRe 

$C?SYS1 ZRa 

*08idi ^Ra 

$GB|©PT ZRa 

$(3B|8FN ZRe 



STATUS QF USERS TAPE REQUEST (DURING TAPEWAIT) 



$eiB|eCR ZR9 

tmiBCZ ZR8 

$GBie4 |R9 

$OETi ;(:r0 

laSPl EXT GETl 

$^|Tg ZRa Q 

IQSP2 EXT QETa 

$(3ET3 ZRa 

ieSP3 EXT GET3 

$aiT4 zRe 

I0$P4 |:XT GETif 

$aiT5 im 

I&SP5 EXT GETS 

$GET6 m 

$GETFN ZR9 

ItriLE eXT GETFN 

$|UgR| Ihq 

$iUSR2 ZR& 

$SUSR3 ZRe 

$8RSUi ZR0 

$SRSU20 ZR8 

$SRSuai zRa o 

«iRsg3 ZRe o 

$SRsu4* iRa 

$UREAL ZR9 

trimx im o 

$T|MEa ZR9 

$T|H|:3 IRQ 

$TriLE im 

*TWMSG |R8 
$DGTCNT ZR9 
$SPACES ZRQ 
$&VrL ZR8 
*CRRrLG ZR8 
$0VDQTS ZRS 
$10D ZRa 

$|ew ZR5 



$DEXP IRd 
$|e>DEXP IRQ 

$^im IRQ 

$NCtNV IRQ 
$Rl|ei BSS 2 

$RLiaa ^Ra 

*Rl|05 iRe 
$RII06 IR0 
$RII07 ZRi 
$RNDFIQ ZRS 
tEXPFUG IRQ 
$DFIG ^R8 
tPlUS IRQ 
$MINUS IRt 
$P|R|eD ZR9 
$IEE ZR9 
$ENDCHR ZR8 
$FFl, ZRe 
iFFA ZR9 
*FFX ZR& 
♦aUTSX IRQ 
$RNDX IRQ 
SRIITIX ZRe 
*ri9W ZR9 
$Al ZR8 
«A2 ZR0 
$A3 |R9 
$|eLlNK ZR9 
$i;RRNyM ZR9 

IF V3 

$RtVl ZR9 

*TIV1 ZR9 

$TlVXi ZR8 

$RlVg ZR9 

$TIV2 ZR0 

$TIV2| ZR9 



$Ti,V2g 

$TIV2| 

$RLV3 

$TLV3 

$RLV4 

«SNTM 
$PJ 

$MT|ME 

$c:time 

$RT|ME 
$LETP 



tm 

ZRa 

|R0 
|R^ 
2R0 

ZR8 
BSS 

iss 

EQU 
ZR9 
ZR0 

ZRe 



$DTEMP EQU 
fPTEMPE EQU 
«DtME EQU 
*DTME1 EQU 
$l,ETEN EQU 



USER»S VALID T|ME PARAMETER 
ACCUMt caMPUTER TIMEt 
ACCUM, REAL TIME 

LETTER PeiNTER 



FBADR^2»34000B 

DTEMP+64 

DTEMP4127 

OTEMP'HaS 

PTEMP4H56 



ENDF 



END 



3TTY 
♦ ENTRY 



IDENT h/^^/i>l 
P6INTS 

ENTRY TTYEMG#TTYASG/TTYTBLjETO#TTN&^FULST 

INTRY TIS2#TIS<f#TIS5iT9S2#T8S3#T0S^^T9S5 

entry ttyfiq/ttybrk/ttytim#ttyung 

|:ntry ttybuf 

entry atis2#at|s#/at|s5#attbuf 

ENTRY TS9Fr#TniT©l/ATn#T$8NH#TSeNI 

INTRY FTCNFTCa 

ENTRY CIB#C88#SKI^D8BiCET/RDET 

ENTRY SET8PiClR8P#GATX 

ir VI 

ENTRY CARRY 

InTRY TFUTN|#TlDMS#CRSW#TRECiTIPIX#TTYeN 

EISF X 

INTRY lTIS2#LT!S##LT0S2/LT6S4/LTTBRK#LTIS5#LT9S5i.LFIil,F8 



* TABUE 

Tisa 

T|S<> 
TIS5 

T8Sa 
T8S3 
T9S^ 
T8$§ 

TTYTBU 
$ETTYTB 

TTYFLQ 
TTYBRK 
TTYASG 
« 

TTYREC 

RIUCW 

*|RIICW 

R0LCW 

^IRaicw 

AllCW 
*EAILCW 



ENOF 

S INDEXED BY TELETYPE 

BSS NTTBl* CHAR CSUNT 



NUHBER 

F8R TTY INPUT BUFFER 
BSS NTTBj* INTERRUPT INPUT BUFFER P8!NTER 
BSS NTTBi* TIS INPUT BUFFER PQINTER 

iSS NTTB;* CHAR COUNT F9R TTY 8UTPUT BUFFER/ •! » INACTIVE 
BSS NTTBm MULTIPUE blank CQUNTER. X2 IF NEXT CHAR IS C8UNT 
iSS NTTBl* INTERRUPT OUTPUT BUFFER P8INTER 
iSS NTTB;* T8S 9UTPUT BUFFER P8INTER 
BSS NTTBi* ECH§ TABLE AND ASSSRTED FLAGS 

EQU TTYTBL'^NTTY 
BSS NTTB^# + IF BUFFER FULL eR TELETYPE UNUSED 
iSS NTTB;* »l IF WAITING F9R BREAK CHAR# + IF NI8T 
iSS NTTB;* TTY 8WNERSHIP STATUS 

FORK T8 TERMINATE IN CASE 9F RUB8UT. 

STATE CHANGE REC8RD 



BSS NTTBm 
IF -V8 

iSS NTTBm RELf 
EQU R|LCW*NTTY 

^$S NTTB^« RELf 
EQU R8LCW-^NTTY 

BSS NTTBj# ABSi 
EQU AILCW+NTTY 



INPUT LCi^ 
8UTPUT LCW 
INPUT LCW 



Aligw BSS NTTB^# ABSt 9UTPUT LCW 
$i;AauCW EQU AaUCW*NTTY 

INpF 
TTYTIM iSS NTT8I* TIME AT LAST RUBQUT 
TIISS iSS NTTB PREVIOUS CNARt AND FUAGS FSR SPECt CR/UF 

# NEGi IF AT LEFT EDGE# X2«Ne CR SENTt 

# J9B » TELETYPE INDEX 
TTN0 BSS NJ8B 
tITTNS EQU TTNa*NgeB*l 
FULST |R0 

# TELITYPi: ECN0 TABLES 
» ECHB PARAMETERS; A{i)f8 

BIT byte; break if 



C9NT 



* 8 

NECMR 

ECHRWP 

ETO 



BIT BYTE# A(2)*N8f df REPEATS# 
BIT 0»li N8 ECH8 IF CHARt=?l 



A(3)»INCREMENT 



ETi 



EQU 

ISS 0J# ECH0 EVERYTHING* BREAK 8N EVERYTHING 

ICHR Q 

ECHB ^0l#6/0 

ECHR 207 

ECHB 20J#2iO 

ICHR 211 

ECHB 20U2#Q 

ECHR 215 

ECHB 201/18j0 

ECHB 240i64#l 

isS 0;# ECHQ EVERYTHING/ BREAK 6N PUNCS AND CTRLS 

ECHR 

ECHB 201#6#Q 

ICHR 207 

ECHB 201#2#0 

ECHR 212 

ECHB 201#2*0 

ICHR 215 

ICHB nOlilBfO 

ECHR 040 

ECHB 241/15#1 

ECHB 060#10#1 

ECHB 272#7#1 

ECHB t01/26#l 



ECHB 333#5/i 
ET2 iSS Q;# ECHe EVERVTHlNQj 

ECHR 

ECH8 201#6#0 

ECHR 207 

ECH9 201#2#0 

ECHR 212 

ECHB ZQliZsO 

ECHR 215 

ECHB 201#1840 

ECHR 040 

ECHR 241 

ECHB 042#62#1 
ET3 BSS 0;# ECH8 N0THING# BREAK 

ECHR 

ECHB 201^95#0 

* TELETYPE BUFFERS 
TTYEMQ DATA TTYEWM 

TTYUNQ RPT NTTY| NTTYC; ENDR 

LTTY EQU NTTY#NTTYC'^NTTY-»"2 

UTTYMl EXT UTTY^l 

ITTBL EXT 40000000B+AMi+APB4.ETO 

* 

* INPUT AND ECHB CHARfS: BIT 0»0 

* 0UTPUT CHAR»S? BIT C»l 

TTYBUF iSS l,TTYj# TELETYPE I/a BUFFER 



BREAK 8N CTRLS aNLY 



m EVERYTHING 



* 'TIP 1/30/66 - 49 CYCLES 



THI$ RaUTINE PR9CESSES 
CHARACTERS INT9 A 



TELETYPE INPyT 
BUFFER F0R THE 



INTERRUPTS/ AND PUTS THE 
205 INTERRUPT T0 PR8CESS 



TIIA 

TUB 

TIIX 

TIISl 

TIIS2 



ZR9;* 
IF 

ZRa 

INDF 

IRBM 
ZRQm 



SAVE (A) 

«ARMF 



SAVE (X) 
TELETYPE »PlNt 

INPUT CHAR AND 



WBRD 
TELETYPE 



N8 



TIIS^ 2R9;» gCHQ 

IF V6 
TIISV IRQ SAVED CHAR F9R SPEC CR/IF C8NTReu 

ENOF 
TICJ I TIP 
« 

TH ZR9; TTYSJ PIN TIISl 
IF VI 
MIN TIICTR 
|NDF 

STA THAI STX TUX 
UDX TllSli CLA; cePY XA#E 

SKG •NTTY*!; BRU #+2; BRU TIU (ILIEGAL TTY INP) 
UOA WERIS#2; SKG ««.Ji BRU TIU (TTY NBT 9N) 

♦ FIUE CHARACTER F8R ATI! 

HIN ATl^^i IDA* ATlSii SKA igOOSl AOM ATIS5 
STX* ATIS5; MIN AT|Sg 

IF ARMF; ARMi SATlW; EISF H BRM ATII; ENDF 
TIU IDA TI|A; IF ^ARMF^ LDB TIIBl ENDFj UDX TIIXJ BRi Til 

« UTIf 5/18/66 
* 

♦ THIi R0UTINI IS STARTED BY A PERMANENTLY ACTIVE 

♦ t8W-PRI8RiTY INTERRUPT T8 FINISH UP F9R Til 
« 

ATfSa gRdi* ATII RING BUFFER CQUNTER 

ATIS4 imi* ATII REApeUT P^INTCR 

ATlSi IHQi* WRITEIN POINTER 

ATTBUF ISS 30|ATTBE DATA i»30i# RING BUFFER 

IF ARMF 
ATIIA imi* ^AVE (A) 
ATIIB imi* SAVE (B) 
ATIIX ZR9i» SAVE (X) 

IF Vi 
SATIN DATA SOaOOOB;* ARM ATI iNT 
RATIW DATA 575777Bi* DISARM ATI INT 

EISF I 
SATIW DATA agO^OOBl* ARM ATI INT 
RATIW DATA 5773776^* DISARM ATI INT 



ENDF 
INDF 

IF ARMF 
ATU ZRe; ARMI RATIW; SKN ATISS; BRU *^Zi BRI ATII 

$TA ATUA; STB ATIIB^ ^TX ATlIX 

ELSF I 
ATII iRQi SKN ATJS2I BRy «4-ai BRR ATII 

ENDF 
ATIU ARMI RATIWi MIN ATIS4 
ATlIiA UDA# ATIS4I SKE ATTBE; BRU ATII2 

ADM ATJS#i BRU ATIUA 
ATlIg ^TA TllSgi C9RY AX#Ai,A; ICY 84 SKN TTYTBL#2i 3RU TIlS 

IF V3 
ATlia ETR §1778; SKQ i37B; SKG 'SSB; BRU **2 

^RU ATn6 (C8NTR91-SNIFT K# ETCt) 

$KG -13781 BRU TIU 

iKQ il76Bi SKG ii73B; BRU AT|X 

1770 1 S K C-yr^7BT^-Wt;M"^^t~-^' 

ATII6 IDA TTYASG#2; SKA =200003; BRU **2i BRU ATIX 

# PRQCE^S RUB9UT 

UDA REAL; MRG t4000000QB| XMA TTYTIM#2l SKA i4Q0O0OO0B 

SUB TTYTIM*2i CNA 

SKG flO; SKG "pU BRU *^3i UDA »»1| STA TTYTIM#2 

♦ SCARCH P»Ui QUEUE 

CXAi ETR »77B; STA TIIS2; I^DX PyBPTR 
ATRl CXA; SKE "PUBPTR; BRU ATR2 

IF V5 

UDA TllSa; CAX; MRG iSOOOOOB; CAB; IDA TICl 

IISF t 

UDB TIIS2; UDA TICl 

ENDF 

DIR; BRM EPUl MIN ACTR; MIN ACTPU 
ATIX SKR AT|S2i BRU ATIll 

IF ARMF 

l,DA ATIIA; LDB ATIIBi UDX ATlIX; BRI ATII 

EISF 1 



BRR ATI I 

ATRa LOA l#ai LDB ZiZi LU% 0*Zl SKE T|CU BRU ATRl 

CBA; ETR »77B^ SKE TUS2i BRU ATRlj BRU ATIX (G9T ^NE ALREADY) 
♦ NaT SPECIAL 

Tin SKN TTYFUGj2 

BRU ATIX 

STA TIISV SAVE INPUT CHARt 

iKQ iiSB CK IF P0S, LF dR CR. 

IRU TIUF YES 

Tim LDA TIIS5#a SAVE CURRENT CHAR AS PREVUUSt 

ETR f70000000B SAVE ANY FLAGS 

MRQ TIISV 

STA TIIS5#2 

LDA TIISV REC9VER INPUT CHAR. 

HUL ii25a5853B DlVt BY THREE 

ADD TTYTBLi2 

CAXi LDX 0#2 (ECne W8RP IN X); LCY 5; ETR f30B (SHIFT IN A) 

C9PY XiiAXi LCY 8#2; CLBl RCY 8 (ECHf) |N B) 

LDX TIIS2I CXAl ADD X3 (SUBTRACT 240B)i ETR *3760000QB 

|K8 »37<^00Q00B| IRU TIUB (ECHQ AND FILE) 

SKB f376000008| BRU TIIO (FILE W/8 ECH9) 

BRU TUIA (IGN9RE EXCEPT F8R BREAK) 

TMIF 



IF 


V6 




SKG 


iUB 


CK F6R pes CR 8R LF« 


IRU 


TIUE 


m 


LDA 


XI 


CHECK F8R FLAd T8 INHIBIT CR/LF SUPPRESS 


SKA 


T|IS5#2 




BRU 


TIUE 


FLA(3 SET 


IDA 


TIISV 




SKE 


il2B 


CK F8R LFt 


IRU 


#♦3 


Nd 


LDA 


il5B 


PREPARE T8 SEE IF PREVtCHAR WAS CR, 


BRU 


TIIIG 




IKE 


f|5B 


CK IF CRi 


BRU 


TIUE 


N9T EITHER CR 8R LF 


LDA 


il28 





TIUG UDB 8377B GET MASK T8 IGN8RE FLAGS 

SKM TIIS5#2 CK |F PREVt CHAR WAS aPPeSITE CURRENT 

iRU Til IE Ne# USE CURRENT 

LDA TnS5#2 YES# SAVE CURRENT 

ETR i70000000B SAVE FLAGS 

MRG TIISV 

§TA TIIS5ii 

IRU ATIX IGN8RE 

INDF 

# NEEDS ECH© 

# INPUT? A»CHAR» LEFT |N INTERNAL CeO'E^ BiECHd LEFT 
TlUi STB TllS^i SKN TTYTBL^El BRU 1113 <DEFER ECH0) 
TIliD $KN T8i2j2l BRU TIISB (TYPING^ DEFER ) I STA TIISS 

LOA TIS2#2; SKE fOj BRU TU3A (CHECK PREV DEFER) 
TIIIC MIN TSSSiSl LDA* T8S5#2; SKA .SOOBi BRU TIIS 
Ills RCY J6| LDB TiIS<*l LCY 16; STA* TeS5#2i HJN TdS2i2 
MIN T8S2#2| LDA il400008i CBPY XAjEl XMA TIIS^ 

TTYS^ PPT TnS#; CAB; BRU * + 2 

# FILE IN BUFFER AS 0UTPUT CHARi 

# INPUTS AiCHARf LEFT IN INTERNAL CeDE/ B.ECHe LEFTt 

TIIO STA TnS2; MIN TlS^f^E; LDA# TISif,2| SKA »200B; BRU TUS 

STR «i77600377B; CNA; ADD TIIS2; ADM# TIS4/2 (SAVE 8UTPUT CHAR) 
MJN T|S2#2j LDA TTYLNG#2; SKG TIS2#2; STA TTYFLQ|2 (INP BUF 8FL8 ) 
LDA TIS2#2i SKG f NTTYC»TTYEWM; BRU TIIIA 
CLA; STA TTYBRK#2; M|N ACTR; BRU TII7A 

TlIlA SKB X4i BRU TIUK (BREAK CHAR) 
LDA TTY8RKj2i SKE XX; BRU TIUK 

TII7A LDA REAL; ETR XX; STA TTYTIM#2; BRU ATlX 

TIUK LDA real; SKG TTYBRK#2; BRU **2i BRU Tn7A 
ADD fl3; STA TTYBRK^2; MIN ACTR; BRU TII7A 

# REC8RP BREAK 

Tin MIN TTYBRK#2l MIN ACTR; BRU Tn7A 

# ECH8 WRAPAR8UND 

TUS ADM T8S5#2; LDA# T8S5^2; BRU TII9 

# S-LEV^L M8DE; MAYBE 

TII6 LDB TTYTBLi2; SKB fSRB; BRU ♦'^2; BRU ATII3 (N8 8*LEVEL IN) 
RCY 8; LDB «77^000COB; SKM TIIS2; BRU TII2 

# 8»LEVEL E8F 



LDA TTYTSLjH; ETR f SPB+ILB+eUB+AMB^-AIB 

SKA ?8Pi*ItB+9tB^ BRU *-»^H; E&R X4J MRG »ETO; STA TTYTBL^2 
TIU IDA TllSaj ETR -776000008; ClBi BRU TIIO (NS C9NV eR ECH9) 

# TAKE CARE er WRAPAROUND 
TII5 ADM Tli<^|2l BRU TI|0*2 

# FILE ECH8 

TIUA LDA TIIS2i UDBt TIS4#2 

SKB »1773; BRU TIISB (PREV DEFER); BRU TIUC 
TII3 UDB TTYT@U#2; ^KB illB^eLB; BRU TUSB; BRU TIIlD 
TfllB RCV a; IDB TnS4j i^CY 8; ETR i37600i77B; LDB X4; BRU TIlO 
# 

# »TS9Nf/ »RPAN» 3/20/66 
« 

# THIS RSUTINE* ENTERED FR9M THE PHANT&M USER# PReCESSES RUBQUTS 

# TIPIX VALUES! 0»BRS 112. 1*8N INTt 2f8FF INT* 3»RUB0UT 
# 

TIP LDX FILE; STX UTTY 

IF V5 

LDX TIPIX; BRU* TIPL#2 
TJPL DATA Ti9N/TSeN|TFIP,RPAN 

ILSF i 

iKN TTYASQ#2; BRU TS9N 

ENDF 

# NaRMAL RUBeUT 

# INPUTI PUPACtTTYASQ 

RPAN LDX UTTY; LDA TTYTIM,2; SKE i^l; BRU TIP6 

# EHERGINCY *-» RETURN T9 EXEC 

LPA REAL; iTA TTYT|M#2; LDX TTYA§G#2i BRM HFK; STX PUPAC 
T|P6 LDX PUPAC; LOA .20000008 

BRM IIR; BRU ♦+2; BRU NPUG9 (INT ARMED AND CAUSED) 

# RUB9UT INTERRUPT N9T ARMED 

# CLEAR INPUT BUFFER 

LDX UTTY; DIR; BRM CLJB; E|R 

LDX PUPAC; BRM RFK; BRM TFK (TERM AFFECTED FK STRUCTURE) 

# CLEAR OUTPUT BUFFER F9R EXEC PR8GS 

LDX PUPAC; SKN PQU#2; BRU NPUGS 
LDX UTTY; BRM CL9B; BRU NPUG8 
TIPIX ZR9 



♦ QFr INTERRUPT PR8CESSING 

IF V5 
TFIP UDX UTTYi UDA .w3; SKE WERISjHi BRM M9NCR 

LDX TTYASQ#2^ STX TFIP3; BRM NFK| STX PgPAC 

UDX UTTYJ PIR; BRM CLIB; MIN Vi£RlSs2i EIR 

LOX PUPAC; BRM RFK^ ©RM TFKj IDA PUPACi IDS TF|Pi 

SKE TFIP3I LDB TFCOSl $TB PL#S 

LDX UTTYl BRM QlBBi UPA »•!; STA T8Sa#3; BRU NPUG9 
TFIPl IRd eFFINTM 
TFIP3 im 

ENOF 



♦ CLEAR INPUT BUFFER 
CLIB 2R9| LDB T|S5#2j 
CLBl STB TIS2#2; 
# 
» UNUSED TELETYPE 



STB 
BRR 



T|S^#S; 

CLIB 



LPB -s-ll STB TTYFUG#2 



* START 
TS9N 



UP NEW USER 



STA 



FULST 
STA T8S2#2 



LDA FPLST; SKG uQi BRU TSaNJ 
LDA FULST; SKQ »•!; BRU TSONl 
8TA jeS; CAX; LPA FILE; xma TTNe#2; 
LPX FILII STX TeS2|2| BRM CL^Bi LDA 
BRM CLIB 
* START UP EXEC F9R THIS US|R 

BRM GFK; BRU TSaN2; LDA sNUMEM; MUL JSB; LSH 23; STX PUPAC 

LDX J8B; ADD TSdNC^; STA TS8NT1 

§UB ?NCMEM4NUMEM; STA PMTU8B; ADD » -^aoOOOOOOB + NCMEM; STA PMTP#2 

LDA ?UMS?*lOOOOOB'fNUMEMj STA PMAi2; CLA; STA RL3#2i LDX i»NUMEM 

STA* Ti9NT|; BRX *•!; LDX PUPAC; BRM S|:TPAC 

LDA fNCMEMi LDX U0B; STA RL3i2; BRU NPUG9 

STA TTN8#2 

FILE; DIR; 



TSaN2 LPX J8B; CXA; XMA FULST; 
TSaNJ UDA TS8NM; tPB FILE; LDX 
TS8NC2 DATA OOOllOUB 

Ti8NC3 DATA --t?0tKTOtK)B <0 

TS8NCi^ |Rd PMT#2 

TS8NTJ ZR8 

TS8NC1 ZR9 TS9NI 



BRM EPU; BRU NPUG6 



MRG X6; STA PTA8/2 



# S^T UP NEW PAC SU8T 

SE:TPAC ZRei $TA Hl^i^} STA R11i2 

UD8 JdBl ISH 39i ADD «EXECl; 

LDA Xli STA Pin, 2 

l,DA PUPAC; UDX FILE; STA TTYASG/2 

LDB flJ STB TTYFLG^S; LDX «QTI; brm QPUT; LDX PUPAC 

LDA TS^NCl^* STA PLs2i IDA TS8NC2j STA RLJ/2; IDA TSaNC3; 

CUAj STA PA#2 



STA RU2#2 



« 

TSeNM 

TS0NI 



TS8N3 



RMPM 



IDA PACDMBI STA PTEST^2i 
PTA PQUiZi BRR SETPAC 



IDA »#OOOOOOOB+NFQU«100000B 



5 ♦"^1; ASC UNQ R86M.$/f 
CLAB; LDX PACPTRi STA MGTS5; 



BRM MGET; BRU TS8N3 



LOA fli STA MGTS5 

LDX PACPTR4 LDA Xl| ADM PTAB#2i LDA X4^ STA XP8 

LDA RRL3I ETR «77Bi §TA RLTS 

LDA xaj LDX «NCHEMj ADM* PMTgSB 

LDA fll STA SMIFIL; STA SMaFlL 

LDA RHPMi STA RMAP 

LDA w7i iTA NF8RK 

LDX iw7l LDA 92i STA PXf2i ADD «ll BRX ♦•2 

LDA »li STA PPB 

LDA fMiurX; STA FBWRD; BRU EXECIM 

LDA fU STA MGTS5 

LDA TS8NM; LDB UTTY 

IF V5J CBXl ENDF 



PIR; BRM tPiJi LDX 
DATA 37777400B 



U8B; SBRS 



112 



♦ BRS 

# 

CRSW 

CRSW2 

CRSWl 



IF V6 
8|*U Lf/CR IGN8RE SWITCH 

IF A LESS THAN 0# D8N'T 
LDX UTTYi SKN SSOli BRU 
BRU P8PX 
T|IS5#2l BRU CRSW2 



XU 



LDA 

STA TnS5#2; 

E8R »•!; ETR 

ENDF 



IQN8RE 

CRSWli 



LF/CR 

MRG TIIS5#2 



« 

# fTSSFfTt 3/8/66 

« 

# iRS II 2 

# TURN QFf A TELETYPE STATION 

# INPUTI X»#i NQi 
« 

TS©FF SKN PQy#2i BRM TRAPB; IDA SS03) C9PY AX#B; STB PMTP^2 
XMA FULST; XMA TTNe^g 
IF V5; ETR »77B; ENDF; C8PY AX^AB 

LDX TTYASG#2J CXA; ADD »PPTR^ XMA FPl^ST; STA PPTRi2i STX SSO| 
QBX; 8RM TTBFFi CtX 

# CLEAR TAPES 

T?eFF3 LDA TJN0J2; SKE SS03i BRU TSaFF4l LPA «-i; STA TUNS/S 
TS5FF<> EAX Xi2f CXA; SKE -NTAPE; BRU TSQFF3 

LDA SS03I SKE UdB; BRM M0NCR 

IF V5 

# CLEAR PU 

LDX PUBPTR 
TSeFF6 CXA; SKE "PUBPTR; BRU TSeFF5 
MIN NBU2 

LDX jeB; CLA; STA aunn#2 

LOA UTTYJ ETR f77B; CePY AB#AX| MRG ilOOOOOB 
STA SS02; MRQ s200G0B; STA SSOl; LOA ■•! 
DIR; SKE WERIS#2; BRU * + 2; BRH M8NCR; SKG 't^*£RlSi2 
BRU TS9FF9 ON); 

# QFF INTERRUPT PR9CESSING 

^TA WERIS#2; EIR; SKN OdHHi BRU ♦'^2; BRU PACGB (SUICIDE) 
TTYS; P8T SS02; LDA §4; DIR; BRM TREC; BRU PACG8 (SUICIDE) 

# LSGeUT eNLYt TTY STILL CONNECTED. 
TSeFF9 STA TTYTlH/2; LDA fNPUQ^i 

IKG PUCTR; BRU TSBFIO; CLA; STA WERIi/2; LDA TICi 

BRM EPy; MIN ACTPU; BRU PACGQ 
TS0FiO IIR; SKN D8WN; BRU **2; BRU PACG8 (SUICIDE) 

TTYS; P8T SSOl; MJN BU2; LDA f 5; DIR 

BRM TREC; BRU PACG8 (SUICIDE) 
BJ12 ZR8 



* CLEAR PU 

TS0FF5 UDA 3^2; ETR »77B; SKE UTTYJ BRU TSSFn 

UDA PUPEADi STA l#2i MiN EXTPU 
Tieru LDX 0#g; BRU TSeFF6 

IISF I 

BRU PACGO 

ENOF 
* 

# n^V Pi DEUTSCH 9/13/65 

♦ THIS RQUTINi PR9CESSES TELETYPE 9UTPUT INTERRUPTSt 

# 

TejA ZR9M SAVE {A) 

TOIB ZR^M SAVE (B) 

T0IX ZR9M SAVE (X) 

Tilia ZR9;» TELETYPE NQt 

T8I8 im 

# 

T9I ZR8; STA T9IA; STX T9IX; TTYS; PIN T9IS2^ LDX TSISg 

SKR T0S2#2i BRU ♦♦2; BRU T8I|A 

HIN T8ICTR 
IBIZ MIN TeS4#2l LDA» T8S##2; STA T9I8 

SKA fgOOBl BRU T9li; STB T9IB 

LCY 8 

ETR f377B*200000i; LDB TTYTBli2; SKB »8P8; BRU T9I2B 

ETR i37600000B 

SKG §1403*2000008 

iKG il5B*200000B 

iRU T9!3 P0SSIBLE LF OR CR 
T0I2B SKN TnS5#2 CK FLAG FOR LEFT EDGE PAPER 

BRU Tei2A NeT AT EDGE 

CAB 

LOA X4 REHavE LEFT EDGE FLAG 

ADH TI|S5j2 

C8A 
Tei2A MRG s^OOOOB BIT 9. FOR N9 iNTERRUPTt 

ADM TeiS^^ TTYS; P9T TaiS2 

LDA TeS2#2; SKG TTYEMG^ MiN ACTR 

LDA REALl ETR XXJ STA TTYTIMj2 



IbD8 teiB 
TeilA i^DA reikf l^DX T0IXJ BRi T0I 
Jdil ADM T8S4#2; BRU T8I2 + 1 

IF V6 

T^I3 SKQ fUB*2QOOO0B 

BRU IdlZB N0T P9S. CR/UF 

SKE ijaB»20000C8 

©RU T8U 

UDB X2 line: feed 

SKN TnS5#2 CK IF AT LEFT EDGE 

iRU T8|5 NQ 

SKB TIISBi? CK IF CtRt HAS BEEN SUPPLIED YET 

BRU #*2 

BRU T8I2A YESj TYPE THE LINE FEED 

UDA S-2000Q0008 REMaVE X2/ LEAVE SIGN eN 

ADH TnS5i2 

LDA »177B*2000pOB TYPE A R,8t 

BRU T9I2A 

T8|4 SKE Pl5B*200000B CK IF CtRt 

BRU Tei6 m 

SKN TnS5#2 CK IF AT LEFT EDGE 

BRU #*3 N8 

LDA fl2B*200000B AT EDGE S© TYPE LINE FEED 8NLY 

BRU Tei2A 

CAB SAVE CHAR 

T8HA LDA X4 SET FLAG FSR LEFT EDGE 

ADM TIIS5#2 

LDA iNTTYC-1 

SKN T8I8 

LPA «-| 

ADM T8S4#2 BACK UP P8INTER T8 P8INT T9 CURRENT CHAI 

CBA 

M|N T8^2i2 

iRU T8I2A 

T8I5 iKB TnS5/2 CK IF NEW LINE FEED 

BRU #t3 m, G8 SUPPLY C-R* FSR PREV. L»F. 

XAB 

BRU T8UA^1 



Tai6 



UDB 


fl5B*200000B 


TYPE C»Ri 


iRU 


T&I4A 




SKG 


»i40B»aoooooe 




SRU 


T8I2B 




SKi 


sH2B#200000B 


SPECIAL L 


§RU 


♦ ■fg 




9Ry 


♦ '♦^S 




SKE 


iU5B#2000Q0B 


SPECIAL C 


BRU 


T9I2B 




SUS 


ii30B#a0O0OOB 




iRU 


T8I2A 





gHOF 



IF VI 

# 

* tTNp iO/ia/66 

# THIS ReyTINE PRaCESSES CARRIIR 8N INTERRUPTS 
« 

TNIS 
TNIA 
TNIB 
TNIX Q 
TNI |R9; TTYSi PiN TNiS; STA TNiA; STB TNIB; STX TnIX 

LDA TNI$; ETR i77B; SKG pNTTY.I; BRU **Zi BRU TNUi CAX 

IF V5 

MIN TNICTR 

LDA «2| P'IRj BRM TREC 

IDA WERIS#2i SKE »»U BRU TNI]U CLA) STA WERIS#2 

MIN TNIAC 

CXAi MRG •lOOOOOB; CABi IDA TICl 

DIR; BRM EPU; MJN ACTR; MJN ACTPU 

ELSF 1 

LPA TTYASG#2l SKE ADMSKJ BRU TNIJ 

UPA llQli CXB; DIR; BRM EPU; MJn ACTR 

ENDF 
TNIl LDA TN|A; LDB TNIBi LDX TNIXl BRI TNI 
# 
» ^TFP 10/12/66 



# THIS ReynNE PReCESSEiS CARRIER 9FF INTERRUPTS 

« 

TFJA 

Trie 

TFIX 

TFI imi TTY$i PIN TFISJ STA TFIAi STB TFIBi STX TFJX 

UDA TFISi ETR i778j SKG fNTTY-l; BRU #%Zi -Bm^ TFM 
-4^^ -^--^^^ ' 

MRG iSOOOOBj STA TFISi PIR; XJi^i^i SKQ WERIS/2; BRU TFia 

EIR;VBRU TFI3 
Tri^ t.DA w^mTW'} STA WER|S^2; UOA REAL; STA TTYTlM#a 

LDA wXi STA Jd$2*2i MiN TFIAC; MIN ACTR/ HIN ACTPU i, 

UDA iNPUQ*ii SKQ PgCTR; BRM MaNCRj CXAl MRG «200000er 

CABl IDA TICU DIR; BRM EPg 
TFI3 l,DA TFJS; ETR i77Bj CAX; i.DA «-^8 

DIR; BRH TREC/ TTYSl POT TFIS 

^SF / 

CAXJ LDX TTYASG#a; LDB »1000008; SKE ADMSKi IDB ?120000B 

Ce^fY X|#EJ STB TFIS; TTYSi PeT TFIS; SKE ADMSK; BRU *^2i BRU TFU 

IDA REAL; STA TTYTIMi2; CXB; IDA TFCl; DIR; BRM EPU 

ENDf 
TFIi LDA TFIAl LDB TF|B| LDX TFIXI BR| TF| 
« 
• 

IF V5 

# 'TREC 1/3/67 

# THIS ROUTINE REC8RDS THE STATE CHANGES IN TTY LiNESf 

# LOWEST eCTAL DIGIT CHANGES. 

# 2iaN INTERRUPT^ OiSFF iNTERRUPTt 4»ANSWERED- 1«CARRIER 8N* 

# INPUTS A«STATE 8F L|NE» XfTTY NUMBER, 
« 

TREC ZRa; STA TRECA; STB TRECB; LDA TRECl; SKN TRECA 

ADD TREC2; STA TREC3; LDA TTYREC/21 LRSH 3 

LDA TTYREC42; LSN 3 
TRIC3 MRQ TRECA; STA TTYREC#2; LDB TRECB; EIR; BRR TREC 
TRECA im 
TRECB ZRe 



TRECl ETR TRECA 
TREC2 E8M 
« 
# 

* BRS BE*6 TTY9N 

# INPUT? AiTTY NQ, IF B LESS THAN ZERa^ TURN TTY 9Nf 
TTY8N ^KN PQU#aj BRM TRAPBi ETR B77Bi MRG §1000008 

SKN SS02; BRU TTYePF; SKN DSWNi BRU *+a; BRM TRAPB 

STA TTe9J CAX; SKN WERISjSj BRU PdPX 

TTYS; P9T TT99I IDA §4; PIRJ BRM TREC; BRU P8PX 
TTYSFF MRG iSQOQOB; STA TT89 

TTYSi P9T TT99J ETR »77B| CAX; LDA «-5 

PIR; BRM TREC; BRU PdPX 
TT©9 IRd 
# 
» 

# BRS iU (8E*3) CARRIER TEST 

# INPUTS A»TTY NSf 

* RETURN? Ne SKIP? N9 CARRIER 

♦ SKIPJ CARRIER PRESENT 

CARRY iKN PQU#2l BRM TRAPBi ETR f77B| CAXi MRG CRY2i STA CRY3 
CRY3 SKS* 3^2Q0B$2i BRU P^PX {m CARRIER) 

UDA ill DIRi BRM TREC; MIN 0| BRU PQP)( 
CRYa SKS* 362008ja 



« 



INDP 



# »TIf 9/2^/65 • 31. CYCIIS NeRMAUY 
* 

# THI5 R8UTINE OETS A CHARACTER FR9M TELETYPE (X)^ 9R CREATES 

# A tPTEST' W9R0 IF THIS IS N9T P9SSIBLE* IT AIS9 PROCESSES 

# DILAYED ECH9Sf 

• 

TISi |R0;# lAVE CHAR WHILE TYPING ECH9 

« 

TI ZR9; LQA TIS2#2; SKQ wOi BRU TI3 
TI5 MIN TIS5#2l LDB* TIS5i2; SKB «200Bi BRU TI2 
CLA; LCY &i SKB i77400BJ BRU Til 



TIT 
T12 

# DISMI 
TI3 



# PRINT 
TU 



CBA; 
ss 

CXA 
IDB 
MIN 

DEL 
STA 

Cdx 

IDA 



T|Sa#2i LD^ p-i; 
ADM T|S5#g| BRU 



ST8 TTYFLG#2; BRR TI 
T|5*| 



XXi STB TTYBRKiH^ 

Til BRR TI 

AYID ECH9 

TIlll UCY 16/ 108 

T8i8J SKR TIS5|2| 

TISU BRU TI7 



ADD ¥600000B+TTYPRK; CAB 



•11 

MIN 



IRM 
TU 



T©| 

BRR 



BRU 
TI 



TI6 (BUFFER NOT FULL) 



TI6 

* 

« ♦TCPi'FTCPiUST'#fI$TC'#aFU'/»lFp 6/28/66 

# 
« 



THIS IS TNE UiER INTERFACE FgR TELETYPE INPUT 



TCI 

TCIP 

TIDMS 

TieOMS 

TCIPl 

FTCI 

FTI 

liT 

ISTF 

ISTC 



PePD 17^00000B#1# 1/0/1 

STB SS02J STX SSQ3| LDX UTTYJ 

LDA f»U STA T|MEi STA TTIME 

LDX fQTIl BRU PePDMS 

LDX SSOII STA# 01 LDB SS02; BRU KPQP 

LDX UTTY 

iRM TI; BRU *'^2; BRU TIDMSj 

P8PD 15000000B/ 1/1/0/1 

IF V8; BRM TRAPBi ELSF 1 

STB iS02/ STX SS03| LDA# Oi BRM 

BRM rn BRU * + 2l BRU TJDMSi LDB 



BRM TU BRU TCIPI 



STA T; BRR GPW 



LDA UNIT/ 

ENDF 



BRM GATXi BRM TRAPB; 



QATXJ BRM 
SS02i LDX 
BRU FTI 



TRAPB 
SS03I 



BRU %POP 



t§TU 2/6/66 



# SIMULATE TELETYPE INPUT 

* 

ST| P8PD 13600000B/1/1/0/1 
STIP STA SSOlj STB SS02| STX SS03 

LDA# Ol SKG f U IDA UTTY; STA UNIT; CAX 

SKE UTTY; BRU *+2; BRU STIPl 

LDX PACPTRl SKN PQU/2; BRM TRAPBl LDX UNIT 
STIPl LDA TIS2#2i SKE «0| BRU STIP2 



LDB SSOlJ USH kOi MRG UNITj ADD XlJ CAXj DIP 

MIN ATIS5; LDAt ATIS5; SKA •200Bi ADM ATJSS 

IIRJ STX* ATIS5I MIN ATI32 

IF ARMF^ ARM! SATlWi EISF J; DIR| BRM ATUl ElRj ENDF; BRU PQPX 
STIP2 CXA; add «100000g4-TIS2; CABj BRU TI8DMS 
# 

# »T8' 9/26/65 
# 

» THIS ReUTINE TYPES 8UT THE CHARACTER (A) ©N TELETYPE (X)^ 

# CREATING A 'PTESTt W8RD IF THIS IS N9T PeSSIBLEt IT TAKES 

# CARE 9F LINKED TELETYPES AS WELL* 
« 

T9Si IRQi* eUTPUT CHAR F6R STARTING UP TELETYPE 

T0S8 ZRSJ* TELETYPE 'TSf WAS CALLED F8R 

T©S9 ZR8i# NUMBER 8F CHARACTERS T8 PRINT 
« 

# INPUT! AfCHARf IN TTY C8DE# BsN8# 9F CHAR»S# X»?TTY NQs 

# 8UTPUTS BiPTEST |F BUFFER IS FULLt 

# SKIPI BUFFER FULL 

# N8 SK|P| BUFFER N8T FULL* 

T8 IHdf STB T9S9; STX TtS8j ETR •377BI MUL "2008 

LDA TTYLNCIj2i SUB T8S9I SKG T8S2#2; BRU Te# 
» N8T FULL BUFFER 

OlRi SKN WER|S#2; BRU **2; BRU T86j MIN T8S5i2 

LDA# T8S5#2; SKA ^ZOOBi BRU T8& 
T82 ETR i77600377B^ CNA; C8PY iA#N; STA» T9S5#2 

iKN T8i2i2^ BRU T83; CXAj ETR 577B| MRG iHOOOQB (BITS 8#9) 

STA T8SU ETR f77B| MR<3 iTTYSKS; STA #♦! 

^KS« 37000#2l iRM M8NCRi TTYS; P@T T8St; M|N T0S2#2 
T03 MIN T8S2|2 
T86 EIR; BRR T8 
T85 ADM T8|5#2; LDA* TaS5#2; BRU T82 

# FULL BUFFER 

Ta^ CXAi ETR 1778; ADD «300000B+T8S2i CAB 
MIN T8| BRR T8 

# 

IF «va 

« CHECK FSR LINKS 



T86 

Tei3 

« 

♦ MAP I 

# 

TIMA 

TIMB 

TLpMW 

« 

T10M 

TLMl 

TLM2 

TIM3 

TlIM 



STB TLM81 IDA fTeie; 

LDX T8S81 8RR IQ 

imi LPA TTYINS#2| SUB 

ZRQi LDB Tl^MB; BRU TQ7 



SKA teiBi BRU T81U BRU T87 

BRM TL8M; LDX TOSSi LDA ?T8L3; BRM TIQM 

T9S9; SKG T8S2#2; BRU 184^ BRR T8L2 



»#»TLIMt 1/30/66 

INK W8RDS 

IRQi* SyBR8UTlNE ADDRESS 

IRQi* SAVE B 

?R8;# iAVE UINK WeRD 

ZR9; LDX ASLCW^a 
STA TLMA; CXA 
SKE wOl BRU TLM3I 
(.R$N II IDX 
LCY 2,Zt STB 
2;R8; IDB TL|M; 
ENDF 



BRR TL8M 
»23i N8D 23; E8R X2 

TUMW; BRM* TIHA; UDA 
STB T18M; LDX 



TLMWJ BRU TLMH 
AILCW^EI BRU TLMl 



|fTC8»#»rTC8'#'8STf#'eSTC'# 'LP©' 6/28/66 
IS THE USER INTERFACE F8R TELETYPE 8UTPUT 



# »T8F 
* 

# THIS 
« 

# INPUT? A»CHARtj X«TTY N8» 
T8F 
T8F5 
TBF2 



T8F1 

TBF^ 

T8F3 

T8r3A 

# 

TC8 

TC:8P 



IHQi SKN TTYTBL#2; BRU T8F4f 

LDB TeS3#2i SKB X4| BRU T8F1I SKB X2| STA Te$3^2 

SKR T8S3#2j BRy **2i BRR T8F 

LDB ill LDA »2#0Bl BRM T81 BRU T8F2 

MIN T8S3#2l BRU I8QDMS 

SKE »135B; BRU TeF3; LDA X2; STA TBS3#2; BRR T9F 

LDB TTYTBL^ai SKB «8PBl BRU T9F3A; BRU T8F5 

ADD wZi^QB 

LDB ill BRM T6| BRR T8F| BRU laoDMS 

P8PD |75000QOi#l#J/On 

STA SSQli STB SS02| STX SS03I LDA* Ol LDX UTTY 



BRM ler; BRU POPX 
FTCe IDX UTTY 

UDA SSOU ETR *377B; STA T| BRM TOF; BRR GPW 
8ST P9R0 1510000004 ia#0#i 

IF V8| BRM TRAPBi EUSF 1 
8STP STA SSOll STB SS02| STX SS03# IDX» Oi BRH GLTT 

IDA SSOU BRM T9Fj BRU P9PX 
8STC LDX UNITi BRM GlTTj BRU FTe 

INDF 
« 

# fCI9'i'C9B»#'SKp#?DeB»#»CET'# 'RDET» 10/18/65 

# THEiE ReUTINES MANIPULATE TELETYPE BUFFERS AND ECN8 TABLES. 

• 

# BRS U CLEAR INPUT BUFFER 

Cli iRM QATTl PIRl IQA TIS5/2J STA TIS*f#2 

LDA fU STA TTYFLG#2; CLA| flR; STA TIS2#li BRU PQPX 

# BRS 29 CLEAR 8UTPUT BUFFER 

Cai BRM GATTi BRM CL8B| IRU P8PX 
• 

# 0RS 13 SKIPS IF INPUT BUFFER EMPTY 

SKI BRM GATT; LDA TIS2#2| SKG fOl MIN O; BRU PQPX 
# 

# BRS U DISMISS UNTIL 8UTPUT BUFFER EMPTY. 
DBi BRM QATTr SKN T8S2|2| BRU *^Zl BRU P^PX 

QXA; ADD «|20Q000B*T8S2; CABl LDX .QTIl BRU P8PDMS 
« 

# BRS 12 CHANGE ECH8 TABLE 

GET BRM GATTi LDA SSOll SKO §-1; BRU CETl; SKA *(N8T)3j BRM TRAPS 

CET*!* CLB; LiH 5i ADD fETO 

CITg DIR4 XMA TTYT8L#2i ETR •i7740000B"8RB«-8PQ 

ADD TTYTBL#2i EIR; STA TTYTBL42; SKA paP8*8RB*ILi+0LB; BRU P8PX 

LDA X4| ADM TTYTBLj2| BRU P8PX 
C|T1 ETR i377i; MRG »8R8i BRU CET2 
# 

# BRS 40 READ ECN8 TABLE NUMBER 

RDET BRM GATTi LDA TTYTBL#2i SKA i8RB# BRU RDETl 



SUB lETOj ETR ADMSKi RSH 5 
RPET2 8TA ^SOli 8RU PQPX 

* a»LEVEl. INPUTf GET TERMINAL CHARACTER. 
RPETl ETR i377Bl MRG X4; BRU RPET2 

♦ 'MSQS'#'ASTT»#'RSTTf i/30/66 

# 

« THE$E RQUTINES CHANGE THE ACCEPT MESSAGES BIT AND ASSIGNMENT 

# STATUS 9F TILETYP^S 
# 

JF «V8 
MiQi iRM GATTi CIA; LD8 SSQU SKB «1; UDA »AI8 

SKB i2| MRG ?AMB| DIRi XMA TTYTBi^/S 

ETR ¥(NaT>AMB(AND) (N0T)AIBj EIR; APM TTYTBL^2^ BRU PQPX 
« 
# 

# NOT IMPLEMENTED 

# BRS 27 ATTACH TELETYPE 

A$TT IKG sNTTY-U SKQ »itl| 8RM TRAPB 

C8PY Xi#AX| LDA TTYA§Gi2l SKE ADMSKi BRU P9PX 

LPA J8B; STA TTYASQ#2; LDA ■^♦O0OOO0OB+AMa+AP8*ETQ; STA TTYTBL/2 

UDA li-U STA TTYFLG#2; MIN Ol BRU P8PX 

♦ BRS 28 RELEASE TELETYPE 

R^TT iK3 «iNTTY»iJ SKG f«U 8RM TRAPB 

C0PY XB#AXj LDA TTYASG#2i SKE U8B; BRM TRAPB 

8RM TT8PFi BRU PQPX 

INDF 
♦ 

♦ »TT9FFt# tGATT»# 'GLTT'#»CU9B» 1/30/66 

« 

* THESE RaUTINES TURN TELETYPES 9FF# AND CHECK THE LEGALITY Qf 

# 1/8 AND LINK REQUESTS 

TT8FF IRQi CLAJ STA TTYFLQ#2i LDA ADMSKi STA TTYASG#2 
LDA i40OOOOO0B*AMB*ETOi STA TTYTBL/2i BRM CL9B 
iRR TT9FF 



« 

♦ INPUT! SS03fTTY NUMBER 

QATT ZHdi IDA SS03i BRM GATX; BRM TRAPBi BRR GAIT 
« 

# CNECKil r9R IB^kl TTY Net CHANGES •! T0 UTTY* 

GATX ZRdi SKG «NTTY»U SKG ?»2; BRM TRAPBJ SKQ «*1; IDA UTTY 

IDX PACPTR; IDS PQVsZt CAX 

SK£ UTTY; SKB X4| BRU GATXl 

UOA TTYASG#2| SKE U9i; BRR GATX 
SATXl MIN GATXj 8RR GATX 
# 
# 

IF «V8 
GLTT ZHQi CXA; BRM GATXj BRU *^2i BRR G^TT 

UDA TTYTBU#2l SKA lAMBl BRR GLTTl ^RM TRAPB 

ENDF 
# 

C10B ZRa; IDA »-li STA Te$3#2| DIRi SKN TaS2#2; BRU 01.661 

EIR; BRR C18B 
C19B1 CUBl STB TBS2#2l EIRj IDA TeS4i2; STA T8S5j2 

iRR C19B 
* 

* »i|T8Pf#»ClR8P» 10/13/05 

« 

# THESE ROUTINES IMPLEMENT THE SPECIAL/ FULL 8 LEVEL TELETYPE 

# eyTPUT 
• 

* iRS 8i 

SIT8P iRM GATTi LDA iSPBj SKA TTYTSL#2| BRU PdPX 
ADM TTYT8L^2i SKN TTYT8L#2i BRU PdPX 
LDA X4i ADM TTYTBLi2i BRU P9PX 

# 3RS 84 

CLRBP IRM GATT; LDA fSPBj LDB TTYTBLi2 

SKB i8PB| ADM TTYTBL.i2i SKB i8RB*ILB*eLBi BRU PdPX 
LDA X4H SKN TTYTBL#2| ADM TTYTBL#2l BRU PQPX 

« 

♦ «LNKC?# 'CLCW»i»CLCB'#'LNKS' 2/6/66 

♦ CLEARi RECeMPUTEi AND SET LINKS 



RLCPTR 

ALCPTR 

CICWJ 

CLCWJ 

» 

LNKC 

LNKCl 



CIWI 
CIW9 
ClCW 

cucwp 

CICW3 
CUCW4 
CICW2 

acwi 

« 

CLC8 
CICW6 

CkCW7 
CUCW8 



CICW6A 
CICW7A 
# 
INKS 



I F • VS 

ZRa;# POINTS re rel,. 

ZRdi* P&INTS re ABS» 
^R8;* BIT CeUNTER 
ZR9;» WSRD C9UNTER 



LCW 



TABLE 
TABLE 



ISH 24/2 



BRM QATTJ STX TJ IDS lU 

C8PY AB#Ni IDX «»NTTY 

SK8 ERIUCW/2; ADM ERIlCW/2 

SKB ER9UCW/2i ADM ER8LCW/2| BRX LNKCI 

LDX T; $TB RILCW#2| STB R8l,CW#-2 

EAX CLWIi BRM CLCWj EAX Cim i BRM CLCW 

BRM CLCBj BRU P8PX 

ZR9 RILCW/2; ZR8 AILCW#2; DATA A|B#AKB 

im R8LCW#2; ZR9 A8LCW#2| DATA AMB#APB 

imi LOA 0/2; LDB 1/S; STA RLCPTRi STB ALCPTR; LDX «NTTY«»1 

LPA« RLCPTR; STA* ALCPTR; CXAj EAX ^l/ei SKE »0; BRU CLCW5 

LDX iNTTY-l; STX CLCWI 

LDX iNTTY^l; STX CLCWJ 

LDX CLCWg; LDA* ALCPTRJ LDX CLCWI; RCY 0#2; SKA ill BRU CLCWI 

SKR CLCWJ; BRU CUCW4; SKR CLCWJ; BRU CLCW3; BRR CLCW 

LDA# ALCPTR; LDX CLCWJ; MRG# ALCPTR; STA# ALCPTR; BRU CLCW2 

imi LDX ««NTTY 

LDA ETTYTB#2; ETR fILB*eLB; CNA; ADM ETTYTB#2 

LDB »X; LSH 24*NTTY#2; SKE EAItCW/2; BRU CLCW6A 

$KE EA8LCW12; BRU CLCW7A 

LDA X4i LDB ETTYTBj2; SKB X4; ADM ETTYTB#2 

SKB i8RB*8PB+ILB*eL8; BRU ♦'►2; ADM ETTYTB#2 

iRX CLCW6; BRR CLC8 

CAS; LDA «ILS; ADM ETTYTB#2; CBA; BRU CLCW7 

LDA i9LB; ADM ETTYTB^2; BRU CLCW8 

BRM MSP; DATA 0; BRU LNKSA 



ENDTTY BSS 



END 



3W JDENT 6/30/67 

♦ ENTRY P8INTS 

ENTRY RTX/PNX#TRX/TWX#T2K/CPX^CPXBjUPXjCRXjCRXP 

ENTRY MTR9PN#MTWePN 
ENTRY PNEeR#MREW,MFSF#HBSF^MBSR 
ENTRY MEeR#MEaF/MERS#MERt, 
ENTRY TRTWjCFTW#CRTW 
« 

♦ »INT31S UNT33' P» DEUTSCH 9/16/65 

♦ W BUFFER INTERRUPT R0UTINES 
# 

* THE N BUFFER DRIVERS AND INTERRUPT RQUTINES HAVE THE FeULQWING 

♦ e9NVENTI8NSi IF THE RaUTJNE SKIPS UP8N RETURN^ IT 

♦ HAS FAILEDf A FAILURE USUALUY 9CCURS IF THE DEVICE ADDRESSED 

# IS N9T READY F0R S8ME REASaNt IF THE RQUTINE RETURNS WITH9UT 

* SKIPPING# THEN IT HAS SUCCEEDED JN PERF8RMING THE TASK ASSIGNED 

# T0 IT. 
* 

# fRTX»|»PNX' 10/18/65 
* 

* PAPER TAPE READER AND PUNCH DRIVERS 
# 

RTX IRdi SETINT RIU IDA I88i ADD «?RTCNT#40000842; STA PTAPE 

E8M* 260^6; EXU lesWj P9T PTAPE; BRR RTX 
« 
RTI ZRQ; ASCWi PIN PTAPEl UDA PTAPE; STA 1#2| EAX 2/2; STX »2#2 

LDA •liE; SUB I8B; ETR ADMSKl ADD W8UFF 

PETW; MRG ERRBITl CZTW; MRG E8RBIT4 STA i*l#2 

BRR RTI 
# 

IF PNXF 
PNX IRQi IDA 0#2; ^UB WBUFF; SU8 *2; CLBj LSH 14 

ADD 188; ADD »2; STA PTAPE; SETINT PNI 

|8M# 36^48; EXU I8SW^ P8T PTAPE; BRR PNX 

PNI8R |R8; IDA E8RBIT; ADM 1#2; CXA; ADD -2 



« 
PNX 



IPX 



SKE 



QiZi 
PNXj 



BRU 
BRR 



PNXU 
PNEQR 



BRM PNIi BRR PNEaR 



IHdi IDA W8EI XMA i^a^ SKA EORBITJ BRU PNIl 
EAX g#2^ STX m2i2i BRR PNI 

I^DA PNI2i XMA 31B; C0M 1644B| BRU ♦ 

BRU ♦+!; T9PW; STA 31BI SETINT PMJ) MIN PHI i BRI PN 

Fl <;F 1 



BRU 

ELSF X 

IRa 

iRU TRAP 



LPERRS 
# PRIN 

P8| 
« 

# 
CPX 



CRUNCH 

« 
CPR@W 

CPP 

cprix 



IF V6 UP T© »TRX' 

ZR9;* #####«#**♦♦#* PRINTER DRIVER 4/2/67 
MIN UPX; CATJ iRR UPXi PRTi ©RR IPXJ PFTj NQP 

UDA PeSUlAi |PT| STA PeSLJj KXU P8$LU SETINT P8I (SLEw MAYBE 
UD8 f60000000B| UDA l#a; SKG 0j2| BRU ♦+4 
$TB* 0#2l MIN 0#2; BRU ♦•4| LDA iUPCNT*4XlQpOB't-2i ADM IQB 
UDA P8SL2; STA peSUli E8M* 2060Br^EXU |0RW) P9T I©B; BRU* IPX 
BRM RSTBUFi IDA ERRBITi ADM XsBi mU*'lPt iERR9R) 
TIR INTERRUPT R9UTINE 
IR9; BRH RSTBUF; LDA pIPCNTj ADM l#2l CLA; STA PDSWll BRR P9| 
«»«#*#*#««## £ND 8F PRINTER DRIVER 
CARD PUNCH DRIVER «#*«♦###»♦###*#*♦■»♦##### 
ZR9;* 8UTPUT BINARY 9R H9LIERITH 

MIN CPXI CATWi BRR CPX (ERR EXIT IF CHNU ACTIVE) 

LDA »»|0i iTA CPECNT (ERR9R REPUNCH MAX) 

BRM CPUNCHj BRR C^Xj BRU# CPX (BRR N9T READY# BRU 9K ) 
imt* PUNCH 12 R9W$, RETURN SKIPS IF PUNCH IS INITIATED 
SKS l40<f6B; BRR CPUNCH (BRR N8T READY) 

LDA win STA CPRCNT (R0W C8UNTER) 

MIN CPB8) LDA nm%} STA CPRBWI (BFR BUSY^NQT AN INTRPT) 

eUTPUT A Raw 
iETINT CPR9WU SKN CPMSDEi BRU CPP (CLEAR UNUSED PART 
8ETINT CPR9WU SKN CPMaDE; BRU CPPl STB* 0#2l MIN 0^2; 
LDX CPM8DE; LDA CPBUFF; ADQ CPSIZE/U STA CPP8T (CREATE 
EXU CPE8Mj2i E8M 16000B^ P8T CPP9T (I8RD) 
SKN CPR8NI; BRR CPR8WI1 MIN CPUNCHj BRR CRUNCH 
MIN CPECNT; SKN CPECNT; BRU CPFaRK (BRU T8 END ERR0R L88P) 



8F BIN BFR 

BRU *«4 
PST WRD) 



SRM 



CPRCNT 

CPECNT 
CP$tAK 

CPE9M 

CPSIZE 
CPPQT 

CP^ewi 

CPP8RK 
CPFINI 



CPX8 



# . 

# 

CRX 



CPNR 

CPEQPl 

« 

CRI 



CRE8F2 

CRERRS 

# 

« 

CRTRAN 

CRTi 



CPFtIP (FLUSH 
PREPUNCH) 



2 CARDS) 





3646B 

2*<»0t40000B 
2*20*400008 



flj STA CPSTAKi 
**%i BRR CPR0WI 

RdW CaUNTER 

ERRQR REPUNCH CaUNTER 

SWITCH T© SEUECT ALTERNATE STACKER 

BINARY 

H©LIERITH 



gm i0246B; LDA 

iRM CPUNCHi BRy 

IRQ Q 

im 

IRQ 

E9M# 

ieM# 

PATA 
DATA 
|R8 

CARD PUNM INTERUPT R9UTINE 
ZRdi SKR CPRCNTi BRU CPRSW (B'RU T9 PUNCH NEXT RQW) 
CETW; BRU CPFJX (BRU CP ERRdR) 

$KR CPSTAKI E9M 10?4(&B (ALTERNATE STACKER ) 

LDX CPiUFF; STX CPFLIP; LDX f«40J LDB §606060608 (CLR BFR) 
iT8* CPFLIP; M|N CPFLIP; BRX #»2 
^RM CPFLIPl SKR CPBBj BRM M9NCR; BRR CPR8WI 
EQU CPX 



LAST CPX »♦*«***♦♦«###♦♦#####♦♦♦####*##*•* 



INDF 



CARD REAPER DRIVER 
^R9; EXU CRTW; BRU CRNR 
LDA fCRSUFi ADD f 2*27*40000B| 
SETINT CRIl E8M# 24068/ 
EXU 
BRM RSTBUF; LDA E8FBIT; 



READY 
STA CRI P8T WPRD 
ESM 16000B; P8T CRIi BRR CRX 
CFTWj BRU CRESFli MIN CRXi BRR CRX MIN IF N9T READY 

ADM Jj2i BRR CRX END 9F FILE 



ZR9I* CARD READER INTERUPT ROUTINE 

CETWi ^Ry CRERRS 

LDA CR2BUF; ETR §777777008; SKE CRESFHi BRU CRTRAN 

BRM RSTBUF; LDA EBEBIT; ADM li2i BRR CRX 

BRM RSTBUFj LPA ERRBIT; BRU CRE8F2*2 

TRANSLATE/ C8MPRESS BLANKS, REMOVE TAIL|N3 BLANKS, 

APPEND WITH CARRIAGE RETURN 

LDA i79; STA CRCCI BRM RSTiUF 

LDB* CRBUFi LDX CRSFTli LSH t2i2i ETR fl7B 6 BIT 

EAX 5#2; BRX #t3; MIN CRBUF; LDX f»18; STX CRSFTl 



(E8F 
YES 



AND 



CHR AT 

NEXT 



A20' 
BRF 



'81 

CHR 



C8PY AX#AJ LSH 2J MUL =3 Xi WRO P©SITI8N BiSNiFT 



LDA CRCHRS*2; Ce^Y SX/ABjAi UCY 6#2; ETR «778 
iKE i608l 8RU CRT2J MIN CRBCNTj BRy CRT3 
CRTg CePY AijAj SKE CRBCNT; BRU CRTBUKi BRM CRINSERT 
CRTI SKR CRCCj BRU CRTt 
CRT4» LDB fl558i BRM CRlNSERtj IDA CRTEMP; SKE «0; BRU 

LDX *CR2BUr; STX -2,2; BRR CRI 
CRT81K ^TA CRX; IDB fJ35B| BRM CRINSERT INSERT 

UOB CRBCNT; BRM CR|NSERTi IDA CRXi BRU CRT2 
CRINSIRT IRQi* IBkO 8 BIT ASC IN | |NT9 NEXT BUFFER 
WDX CRIFT2; RCY 32#2| ADM CRTEMPi EAX 7/2 
CRTSj CLA; XMA CRTEMP; STA« CRIBUF 
CRIBUF; STX CRTEMP; |,0X f24 
CRSFT2; BRR CRINSERT 



ASC AT A16-23 

MIN IF BLANK 
BRU 1ST N8NBLANK 

END 9F CARD 
CRT4 LST BFR WRD 

MULTPL BUK CHAR 



CRTS 

CRTW 

CFTW 

CRI^FH 

CRE9FB 

CRCC 

CR$FTJ 

CRSFTa 

CRiCNT 

CRTEMP 

CRCHRS 



* 
CRXi 



CRIB 



BRX 

MIN 

STX 

§KS 

SKS 

DATA 

DATA 

IRQ 

DATA 

DATA 

IRd 

2R8 

DATA 

DATA 

DATA 

DATA 

BINARY 



P9SITI8N 

pesiTieN 

INSERT ASC W9RD 



ASC 



12006B 
U006B 

77777777B 


• 3*6 
»3*8 





CARD 
CARD 
EEE 



READER 
READER 



READY 
END 9F 



FIIE 



CHR CeUNTER 

SHIFT WQRD TQ P9SITIQN SDS 
SHIFT W0RD Td P9SITI8N ASC 
CONSECUTIVE BLANK C8UNT 



INPUT 
CHAR 



CHAR 



20212223B#24252627B# 303 14035B# 073236768 
i3#1424^3B# #4454647B# 505 137 16B# 117334038 
1552535481 55565760B# 616201 048/ 127533028 
00176364BI 656667708/ 71720614B# 107774058 
CARD READER DRIVER 



) 



CPBUFF 
CPFLIP 
CPM9DE 



^R9; EXU CRTW; BRU CRNR (READY 
LDA «CRBUF; ADD f 24>4Q#40000B; STA CRIB 
SETINT CRIB; E9Mt 3606B; E8M 16000B; P9T 
^R9; LDA CRIB; STA CRI; CETW; BRU CRERRS 
LDA CRaBUF; SKE CRE8FB; BRU *+2i BRU CRE8F2 
BRM RSTBUF; LDA iCRCNTB; ADM 1/2; BRR CR|B 

LAST CRX/CRI ♦♦#♦«»##*♦***#♦♦# 
2R8 

zm 
zm 

IRQ 



(P8T 
CRIB; 



W9RD) 
BRR CRXB 



CRiiUF 


ZR9 








CR2iur 


ZR8 








CRsyr 

JH 


IRQ 








# »TRX 


♦l^TV^Xt 10/2^/65 






* THESE ARE 


THE BASIC TAPE READING AND 


WRITING R8UTINES 


w 


TDT 


TRTjSKS#l0410 


SKIP IF 


TAPE N8T READY 




TDT 


BTT,SKS#18010 


SKIP IF 


N8T BEGINNING 8F TAPE 




TDT 


ETT#SKS#|1010 


SKIP IF 


N8T END 8F TAPE 




TOT 


TFTiSKS/13610 


SKIP I'F 


N8T END 8F FILE 




TDT 


FPT#SKSa401Q 


^K|P IF 


TAPE N8T FILE PR8TECTED 




IF 


VI 








TDT 


D8T#SKSa7210 


SKIP IF 


N8T 800 DENSITY 




ENDF 










TDT 


D2TjSK^/16210 


SKIP IF 


N9T 20Q DENSITY 




TDT 


P5T,SKS#16610 


SKIP IF 


N8T 556 DENSITY 




TDT 


RTB^E8M#,361Q 


READ TAPE BINARY 




TDT 


NTB#EeM*|3650 


WRITE TAPE BINARY 




TDT 


WrM#E9M#^2050 


WRITE FILE MARK 




TDT 


SFB/EeM^3630 


SCAN FORWARD IN BINARY 




TDT 


SR8iE8M#7630 


SCAN REVERSE IN BINARY 




TDT 


ETriEaM#i3670 


ERASE TAPE F8RWARD 




TDT 


ETR/EeM#i7670 


ERASe TAPE IN REVERSE 




TDT 


REW^EeMiHClO 


REWIND 




Txsa 


ZRe; 


* SPACING CTRL FILE 


C8UNT 




TXS3 


IRQf 


♦ TRY AGAIN CeUNT 






TX$^ 


ZRa; 


* INTERLACE W6RD 






IF 

# 9PEN 


MAQ 


TAPE 






MTW0PN 


ZR9; 


LDA MTW9PNI STA MTR8PN; LDX SSGl; EXU FPTWjg; BRU 




^RU 


MTR8PN'*'! 






MTR9PN 


ZR0; 


LDX SSOll LDA TJN8 


j2 






SKE 


J8B; SKG «»U BRU *-f2; BRU 1 


rsPNi 




Exy 


TRTW#2| BRU T8PN3 








IF 


VJ 








Exy 


P8TW#2; BRg TePN3 








ENDF 









T9PN2 



EXU P2TW#2j BRU T8PN3; EXU D5TV^/2| BRU T8PN3 

CUA; MIN MTRaPN; BRR MTRQPN <N9T READY) 
TePN3 UDB XZi STB MTFUjSi BRR MTR9PN 
rePNg l,DA *ii MIN MTRQPNi &RR MTRaPN 
T^PNl yDA 9ii BRU T8PN24I 
« 

» TAPE READ DRIVER 

TRX ^R8i LDX IHQi LDA MTFl,#a^ SKG lOj 3RU TR5 
EXg ETTW42; BRU TR^fj EXU TRTW#2; BRU TR3 

# EXIT iJNCE TAPE N8T REApY 

MIN TRXl BRR TRX 

# m READ 8EY9ND E8T 

TR# LDA E9TBITi BRM TOI; BRR TRX 

# PSEUDS EBF 

TR§ IDA EeFBITi BRU TR4+1 

# START READ 

TR3 SKR MTFl|2; i,DA iNTRTRY^l; STA TXS3i BRM T2IJ BRR TRX 

# SJGNAl. E9T (NdT INTt RTN») 

TOJ imi IDX WBUFFi EAX 2/2; STX »2#2 
MRQ WBE; STA ^XmB} BRR TOI 

# READ iUFFER 

Til imi IPA I8BI ADD TXCll STA TXS4| SETINT 111 

LDX TN8; iXU RTBW|2J EXU ISRW; P8T TXS#; BRR T2l 

# CLEAN UP AFTER READ 

Til ^Ra; IPX WBUFFi EAX 2^2; STX .2i2; C8PY XA#X8; ADD -li2J LDX TN8 

EXU TFTWi2j BRU TUB; BETW| BRU Till 
1%IZ EXU |TTW|2^ MRG E9TSIT^ LDX WBUFFj STA 1|2| BRR Til 
« car WAS READ 
Till CBA; MRG EarBlTl BRU TII2 

# TAPE IRR8R aN REAP 

Till ASCWi PIN TXSli XMA TXSli SUB |8B; ETR ADMSKi SKQ »150i BRU TU4 
EXU BTTW#2; BRU TiHl MIN TRERRi SKR TXS3i BRU TII5 
MIN TURERRi LDA TXSli MRG ERRBlTi BRU TU2 (PERM ERR8R) 

# NaiSEii READ AGAIN 

Til^ MIN TNERRJ BRM T2lJ BRR Til 

# TRY RE^READi SCAN BACK 

Til^ SETINT T3I| EXU SRBW|2; BRR Til 

# PRaCESS 131 WHEN BACKING aVER REAP ERRaR 
T3! ZRa; WfM TXSl; SETINT T2I; BRR T3I 



« 

♦ TAP^I WRITE PRIVpR 

TWX im^ LDX TNe; UDA MTFL|2; SKQ «0^ BRM NTRPB 
EXU eTTW#2j BRU TW4; EXU TRTWi2i BRU TW3 
MIN TWX; QRR TWX (N9T READY) 

# N0 WRITE BEVeND EOT 

TW# UPA E9TeiTl BRH TOI; BRR TWX 

# START WRITE 

TW3 tDB »NTWTRY^1; STB TXS3; SKR MTFL#2; LDX WBUFF 

IDA Xtti ETR E8RBITJ ADD 0$Zi SU3 WBUFF; SUB «2; STA 1*2 
UDX im} EXU BTTWiH; BRU TW2I BRM TOJ; BRR TWX 

# WRITE 3«INCH GAP AT UO PT 

TWg I^DA iTOUJ BRM TlJi BRR TWX 

♦ WRITE 3 INCH GAP (N8T INTERRUPT ROUTINE) 

TiJ imi EXU ETFW#2; EXU I9RW; P8T X4j STA 8LK31i BRR TlJ 

# WRITE BUFFER 

TQJ imi IDX WBUFFi tDA 1/2; SKG *0; BRU TOUl 
LDA 10^; ADD TXCXl STA TXS4; SET|NT T3J 
UDX TN8; EXU WTBW#2| EXU I0RW; P0T TXS4; BRR TQJ 

TQJl BRM T2K; BRR TOvl 

# WRITE FILE MARK, iNfERRUPT AFTER 3* QAPt 

Tgg ^R0; LDX TN8; EXU WFMWj2| E8M 1600QB; P8T T2JFM 
SETINT T2K; BRR T2U 

* CLEAN UP AFTER WRITE 

T3,J ZR9; IPX TN0I L.DA WBE; BETW; BRU T3J1 
TUa |XU ETTW#2; MRG ^0TBIT; UDX WBUFF; STA i#2 

EAX 2j2; STX -i^a; BRR T3J 
T3^1 MIN TWERR; SKR TXS3; BRU T3J3; MRG ERR3IT; BRU T3J2 (PERM ERR) 

♦ TRY RE»WRITEi ERASE BACKWARDS 

TIJ3 ASCW; P|N TXSl; l^DA I0B; XMA TXS|; SUB I8B 
cub; tSH iki STA TXSt 
EXU ETRW^a; EXU I8RW; PST TX$1; SET|NT TOU; BRR T3J 

♦ ERASE BEF8RE FIi,E MARK 

Ik^ ZR8; IPX TN9; LDA fT2J; BRM TlJ; BRR T4J 

« 

# ' ME8R ♦ » ' MBSF ' i » MFSF ? , » M^SR » i » MESF t # » MER$ » # » MREW' # f MERU ' 12/15/65 

• MAa TAPE CeNTRQy R8yTINES 



♦ CLEAN UP AFTER SPACING (133) 

T2K IRQt LDX WBUFFi EAX 2,2; SIX -2/2 
i,DA mt$ STA -Ua; BRR T2K 

# FtRWARO SPACE FIUE |3l 

T5K ^R9| IDX TN8I EXU TFTWi2; gRU T5K1 

* N9T EQF/ CONTINUE 

T5K2 SETINT T5K; EXU SFBW#2; BRR T5K 

# E8F SENSED, DONE 

TPKI MIN TXS2^ ^KN TXS2| iRU #*2l BRU T5K2 
WIM TXili SETINT T8K/ BRR T5K 

# BACKSPACE FILE F8RWARD SPACE 131 

T#K |R8; WJM TXSU SETJNT T2Ki BRR T^K 

# BACKSPACE RECQRD 131 
T|K IRQi LDA -iOOOi 

T|KO UDX TN8i MIN TXS2; W|M TXSU SKA TXSl; BRU T1K2 
IXU BTTWj2i BRU TiK4i EXU TFTW,2j BRU T1K2 

♦ N8T E9R# C8NTJNUE 

TIKI UDA INTRJ STA BIK31; EXU SRBW,2j BRR TIK 
TiKi SKN TXg2; BRU *+2i BRU TIKI 

♦ END SENSED, Q9 F8RWARD 
T|K3 SETINT 13Kl BRR TIK 

# BtT SENSED (ACTUALLY 133) 
T1K# iRM T2KI BRR TiK 

# BACKSPACE FILE I33 

TIK IRdi LOX TN8; EXU TRTW,2| BRU T3K2 

MIN T3Ki BRR T3K (N8T READY) 
T|K2 ^XU BTTWi2; BRU T3K1| SETINT T#K| EXU SFBWiSi BRR T3K 
T3KJ 8RM T2KJ BRR T|K 

* BACKSPACE FILE I3| 

T6K ^Ra^ LPA T6Ki STA TIK; CLA; BRU TIKQ 
« 

♦ PREPARE FOR MAG TAP^ CTRL 

MTTR |R8l M|N MTTR; LDX TN8i EXU TRTW|2| BRU MTTl 
CXB; LDX MTTR; M|N *3,2i BRR ^3i2 (N8T READY) 

* SET UP INTERRUPT, EXIT 

MTTl IXU» MTTR; BRU MTT2; STA BLK31; BRR MTTR 

♦ I8T/B8T SENSED 

MTT2 LDA E8TBIT; BRM TOI; LDX MTTR; SRR '•3,2 
« MAG TAPE CTRLS 



# RCWIND 

MR|W imi UDX TN8^ EXg TRTNiSl BRU MRfWl 
CXBl M|N MREWi BRR MREW (N0T READY) 
MREWl EXg REWWjS; BRM T2K; BRR MREW 

# WRITE E0R 

ME0R IHdi IDX WBUFFi LDA i/2j MRS EdRBIT; STA 1#2 

BRM TWX; BRR ME9Ri M|N MESR/ BRR ME0R 
» IRASE 
MERS ZR9i LPA «T2K; BRM MTTRj EXU ETTW#2 

MgR$% pRM ngj BRR me;rs 

# L6NG ERASE 

MIRL |:R04 LDA leRWi MRG .g; sta jsrw 
tDA MERlJ STA MERSi @RU MERS«^1 

# WRITE E9F 

M|eF imi UpA -T^g; BRM MTTR; EXU ETTW#2 
XMA MEeFi STA MERS; XMA ME8F 
|Xg BTTW|2j BRU MERSi (ERASE IF E0F AT B9T); BRM T^g; BRR ME9F 

# F9RWARD SPACE FIUE 

MFSF ZR0; LOA »T5K; BRM MTTR; EXg ETTW#2 

i,DA i»U STA TXS2; EXg SFBW#2; BRR MFSF 

# BACKSPACE FILE 
MiSF IRdi IDA fT6K 

MBSP BRM MTTRl Exg BTTW|2 

LDA f$; STA TXS2; EXg SRBWj2; BRR MBSF 

# BACKSPACE RECeRO 

MiSR ZR$t IDA MBSR; STA MBSFj LDA «T1K| BRg MBSP 
END 



(*mm IDENT 7/02/67 

* VERSION 12 6/18/67 
« 

# SYSTEM Fi.AQS# aPDS, PARAMETERS* AND MAQRdS 



1 



# ASSEMaUY FUAG3 
CRXF EQU 
PNXF EQU 
IRXF ^QU 
RELCNN EQU 
9^0M EQU 



ARMF 

VI 

Vg 

V3 

V# 

V5 

V6 

V7 

V8 

FC8 



EQU 
IQU 
IQM 
EQU 
EQU 
EQU 
EQU 
IQU 

EQU 



# 8RDS 

SBRS 

TiN 

CKN 

CKF 

IRRi 

LRR2 

IRR3 



<N9 
X 

ml 

• i 

'1 
1 

I 

X 
X 
X 

1 
1 

X 
X 
X 

% 



CARD READER) 
(PAPER TAPE PUNCH 

im UlNE PRINTER) 

(QID DRUM CHANNEL) 

(•1 FeR BERKELEY^ 1 F8R 940) 

(ARMING FEATURE) 
(VERSieN l.85«l) 

(VERSI9N lt85»§) 



(VER$|0N 
(VERSI8N 
(VERSI8N 
(VERSI8N 
(V^RSI©N 



1»85»3) 

X f 85»# ) 
lf85«»5) 

l-85«'7) 



(REIABEIED VERSIQN) 

(FCB CHANQES) 
(IfSI C9MPAT|BtE F!l,ES) 



8PD 
8PD 
8PD 
8PD 

ePD 

8PD 

IF 

# PRINTER COMMANDS 
EPT MACR9 

DATA 40X406QB 

ENDM 
PFT MACR8 

DATA 40U06QB 



173000009^ Ul 

003220008/2 

00220lQ0Bi2 

00220200B#g 

00220400B#2 

00221000B#2 

0022U00B#2 

V5 



SYSTEM M9DE BRS 

(30 FR9M N8RMAL T9 H9NIT9R MODE 

TURN 8N THE CL8CK 

TURN 8FF THE CLBCK 

10AD RELABELING REGISTER 1 

U0AD RELABEIIINQ REGISTER 2 

USAD RELABELLING REGISTER 3 



END 8F PAGE TE5T 



SKIP IF N9 PRINTER ERR8R 



SKIPT9 
SPACE 

PRINT 



CAT 
« 

# BREA 
8PT 

# 

# 1/6 
TTYS 
TTYSKS 

eao 

AIR 

RRF 

WRF 

RjN 

laSDE 

I0RDE 

RSR 

RSE 

CITE 

I9SDW 

laRDW 

AID 

OiR 

DRT 



ENDM 

HACR8 

DATA 

ENDM 

MACRa 

DATA 

ENDM 

MACR9 

DATA 

ENDM 

MACR9 

DATA 

DATA 

P8T 

ENDM 

9PD 

KPeiNT 
9PD 

ENDF 

DEVICE 

MACRSi 

EQU 

9PD 

0PD 

9PD 

9PD 

9PD 

EQU 

EQU 

MACR9; 

MACR9; 

MACR9J 

EQU 

EQU 

9P0 

^PD 

9PD 



4012060$ 



SKIP IF PRINTER READY 



aio#60i^D(i)*ioooB 



ai0660B+D(l)»1000B 



D 
3420608 

sisaooB 

D(U 

040140008^2 

TE$T 

04020000B#2 



9PD'S 
DATA 20277777B; 
24077000B 
00600000B^1# 
00610026B#2 
00602226Bj2 
00602266B/2 
006162008^2 
00617500B 
00614000B 
SKS* 10026BI 
SKS# U026B^ 
SKS* llOOOBi 
214200B 
2140006 
002l0026B#g 
0020262681 2 
04010026B#2 



AUERT iNTERlACEi 1 CHARt PER W9RD 
ARM I31# DISCeNNECT WHEN 
TRANSMISSI9N IS C9MPLETEf 



1 



ENDM 



ALERT RAD 
READ RAD 
WRITE RAD 
RAO I9SD 



^NDM 
ENDM 
ENDM 



ALERT DISC 
DISC READ 
DISC READY TEST 



DIT 0PO 04011026B/2 
OCT ePO 040110008iH 



DISC ERRSR TEST 
DISC CHANNEl ERR8R 



TEST 



» PARAMETERS 

BE EQy 123 

NP9P EQU 448 

# W BUFFER DEVICE PARAMETERS 
RTCNT EQU 64 

PNCNT EQU 40 

CRCNT E;Qy 40 

CRCNT8 EQU 40 

CPCNT EQU 40 

CPCNTB EQU 40 

NTAPE EQU 2 

NLINK ^QU 

TCNT ^au 199 

LPCNT EQU 132 

RTWT EQU RTCNT#^0/3 

PNWT EQU PNCNT#400/6 

CRWT EQU 300 

CPWT EQU 150 

TXWT EQU 20+TCNT/lO 

LPWT EQU i33 

NTRTRY EQU 10 

NTWTRY EQU 3 

# FILE PARAMETERS 
H^KE EQU 40 
MBUFX ECU 340000008 
D8B EQU 00400000B 
» TTY PARAMETERS 

NTTY EQU 32 NUMBER 8F TTYS 

NTTB EQU NTTY*NUINK 

NITTC EQU 

NTTYC EQU 70 

TTYEWM EQU 20 

AMB EQU 40000B 

AJB EQU lOOOOOB 

AFB EQU lOOOOOOOB 



lAST BERKELEY BRSt 
NUMBER 9F SYSPePS IN USEt 

PAPER TAPE READER BUFFER LENGTH 
PAPER TAPE PUNCH BUFFER LENGTH 
CARD READER BUFFER LENGTH 

CARD PUNCH BUFFER LENGTH 

NUMBIR Qf MAG TAPE UNITS 

LENGTH 0F MAG TAPE BUFFER 
LINE PRINTER BUFFER LENGTH 
PAPER TAPE READ TIME 
PAPER TAPE PUNCH TIME 
CARD READ TIME 
CARD PUNCH TIME 
MAG TAPE TIME 
LINE PRINT TIME 
NUMBER 8F REREADS 
NUMBER QF REWRITES 



NUMBER 0F 
F8WRD FOR 
PR9TECTED 



FILES 

EXEC BL8CK 
FILE BUSY BIT 



T8TAL TTY BUFFERS 

NUMBER 9F CHARS IN TTY BUFFER 
TTY EARLY WARNING (2 SEC) 
ACCEPT MESSAGE BIT 
ACCEPT INPUT BIT 
ACCEPT PRINTER LINK BIT 



AK8 


EiQU 




1000008 ACCEPT KEYBOARD UINK BIT 




8RB 


EQU 




<^0000O0B 8-LEVEt INPUT BIT 




8PB 


EQU 




2000000B 8»LEVEL 8UTPUT BIT 




IIB 


EQU 




lOOOOOOB INPUT lim BIT 




8LB 


eoy 




4*0OO0OB 9UTPUT LINK BIT 




# PAC 


TABLE 


: PARAMETERS 




NSQU 


EQU 


12 


NUMBER er CL9CK CYCLES |N SH8RT QUANTUM* 




NfQU 


IQU 




36 FULL QUANTUM Silt 




NPAC 


EQU 




14^ NUMBER 9F PACT SL9TS 




NPPAR 


EQU 


10 


LENOTH 9F PACT ENTRY 




« J9B 


AND ^ 


1EM0RY PARAMETERS 




NU9SI 


IQU 




32 NUMBER 8F U8BS WITH9UT PtUt 




Njes 


IQU 




NUQBl^-i NUMBER 9F U^BS 




UMSZ 


EQU 




15 INITIAL MACHINE SIZE 




NMEM 


gQU 


32 


NUMBER 8F PAGES 




NSMEM 


EQU 


7 


NUMBER eF PAGES USED BY SYSTEM 




NCMEM 


EQU 




60B CeMMSN PART 0F USER MACHINE 




NSMT 


EQU 




iOOB SUE df SMT 




NUHEM 


IQU 


iOOB»NCM|;M NUMBER OF PRIVATE USER PAGES 




NPU9 


^QU 


16 


NUMBER eF PUCT ENTRIES 




# RAD 


AND SWAPPINQ PARAMETERS 




NRDQ 


EQU 




20 MUST BE GT USER'S PAQES*2 




NRTRY 


EQU 




X N9f 8F READ TRIES F8R RAD. 




NRAD 


EQU 




4 N8i OF RAPS 




NSEC 


^QU 




2*NRAD 




l?NSEC 


CQU 




I 




NSBND 


iQU 




i8 NUMBER 8F 16K BANDS RESERVED F9R 


SWAPPINQ 


NSSP 


EQU 




4000B LeCf eF ist swapping area, must be a 




» 






MULTIPLE 8F lOOOB. 




NiAM 


IQU 


i6 


SUE eF SWAPPER ASSaCIATlVE MEMSRY 




♦ DISC 


PARAMETERS 




NPTRY 


EQU 




4 NUMBER 9F READ TRIES F8R DISC. 




NDRQ 


EQU 




30 N9i 8F jeBS IN DISC QUEUE. 




NDISCS 


EQU 




3 
ND|SCSi32 




NP8S 


EQU 




80; ELSF l^NPeS EQU 40^ ENQF 




MAXP 


EQU 


NPeS/2#2009+31*2QOB 




MINP 


EQU 


.NP0S/2*2OOB*3g#aoOB 




TA0LEN 


EQU 


NP0S/2*2»NDISCS*32+23 





♦ BUFFER P 
N^UFX EQU 



NIUF 

NDDW 

BIN 

BIC 

BPN 

BDC 

BIP 

BIA 

NDXW 

NPXWC 

NDXWCR 

NDXNR 

NDBW 

NDBS 

BX0 

BiP 

BFP 

IXC 

# TS 

DBT6P 

SMSFIi, 

SMIFIL 

SMBA 

SMDRN 

FBWRD 

RMAP 

Pi 
PX 

PPB 

NFeRK 

FBADR 



i;QU 
EQU 

EQU 

EQU 



EQU 
EQU 

EQU 

IF 

EQU 

EIS 

EQU 

EQU 

EQU 

EQU 

EQU 

^QU 

EQU 

IQU 

BiacK 

EQU 
EQU 
IQU 
IQU 
IQU 
EQU 
EQU 
EQU 
EQU 
EQU 
IQU 
EQU 



TABlEN/2# 

ARAMETERS 
3 

NBUFX 
255 

NDDW+2 
NDDW+3 
NDDW+4 
NDDN+5 

NDDW*7 

ciai 

78 



NUMBER eF BUFFERS IN THE EXEC BLDCK 

T9TAU NUMBER ©F DISC BUFFERS* 

UENQTH ©F DATA BL8CK 

INDEX BueCK NUMBER 

INDEX CHANGED FLAG 

DATA BU8CK NUMBER 

CHANGED DATA FLAG 

INDEX BLeCK PeiNTER 

INDEX BL9CK DRUM ADDRESS 

LENGTH 9F INDEX BL9CK 



MAX NUMBER eF DATA BL8CKS PER FILE 
UNOXWC EQU NDXW; ENDF 
NQXWC*i 
128 NUMBER 9F WdRDS T8 READ/WRITE 



NDDW+S^NDXWR 

NBUF»NPBW 

NDBWwNDXWR 

BXQ+NDXW*1 

8X8+NDXWii2 

BX94.NDXW 
MAP 
37777B»'NDBS-5-i-17-'l 



LENGTH 8F DISC BUFFER 
SUE eF BUFFER AREA 
INDEX BLSCK 8RIGIN REL T8 BUFF 
BACKWARD CHAIN W9RD 
F9RWARD CHAIN WeRD 
INDEX BL^CK CHECK W8RD 

1ST W8RD AFTER PRSYMS 



# M8NIT8R 
RAW EQU 
CAW EQU 



DBTeP 
DBT8P*1 
DBT8P*2 
DBT8P*3 
DBT8R44 
DBTeP+5 
DBT9P*6 
PB*8 
PX*8 
PPB*1 

DBT8P+5H"1 + 17 + 1 
AND EXEC LeCATI8NS 
lOOB 
44000B 



SEC8NDARY MEM8RY 8UTPUT FILE 
SECeNDARY MEM8RY INPUT FILE 
SECeNDARY MEM8RY BUFFER ADDRESS 
SEC8NDARY MEM9RY BDN ADDRESS 
BUFFER AVAILABILTY BIT W8RD 
RAD BIT MAP F8R FILES AND SWAPPING 



P8INTER T8 PB CHAIN 
NUMBER 8F F8RKS C8UNTER 
FIRST BUFFER ADDRESS 



RAP ADDRESS 8F W 
C9RE ADDRESS 8F W 



DAW 


EQU 





RADSC 


IQU 





CADSC 


^QU 


<^0000B 


DADSC 


EQU 


3008 


CASET 


EQU 


50000B 


DASET 


EQU 


3#08 


DAEXEC 


EQU 


iOOB 


RAEXEC 


EQU 


600B 


# MACR9S 




A 


EQU 


X 


B 


EQU 


2 


Ag 


EQU 


^ 


8A 


iQU 


lOB 


BX 


EQU 


208 


XB 


EQU 


ikOB 


E 


EQU 


lOOB 


XA 


IQU 


200B 


AX 


EQU 


4008 


N 


EQU 


lOOOB 


X 


IQU 


2000000GB 


C8PY 


MACR© 


D 


K 


NARG 




t 


i;qu 





M 


EQU 


i 




RPT 


K 


L 


EQU 


U^D^M) 


M 


EQU 

ENDR 


M+1 




DATA 


4600000B*L 



DISC ADDRESS 8F W 
RAD ADDRESS QF DISC 
C©RE ADDRESS 6F DISC 
DISC ADDRESS 6F DISC 
C8RE ADDRESS 8F SET 
DISC ADDRESS 8F SET 
DISC ADDRESS QF EXEC 
RAD ADDRESS OF EXEC 



ARM I 

ARM! 

ENTRY 
ENTCNT 
SETINT 
TDT 



IF ARMF 

MACR9 Di A|Ri R8T D{i)i 

EISF 1 

MACR8; ENDM 

ENDF 

MACR8 UlENTCNT NARG; RPT ENTCNT;L (ENTCNT ) EXT 

EQU ENTCNT^U ENDR^ ENDM 

MACR8 A; IDA «A{l)j STA BLK3i; ENDM 

MACR8 UiU(|)fW EQU *} RPT NTAPE; 1(2) U ( 3 ) •B+*«L ( 1 ) . W; ENDRi ENDM 



RMFF 

SHFF 



SHFF 
RMFF 

ECHR 

ECNB 

TRP 

FR(3T 
CACR 






IF VI 

MACR8; ENOM 

MACRSi ENDM 

MACR9 D#Q#l;G(i) RSR; BRU ♦»lJ ALR^ Pai •D(3)/100B 

laD* lOOOOBl DATA |8§DE+D( i )/gOOOB( AND)37B-i-D ( 2)/40000B ( AND) 3*40B 

P&T iDU) (AND)4777B*40000B*D(2) (AND)37777Bj RRFl RSR; BRU **i 

RSE; BRU G(l); CETE; BRU G(l)i ENDM 



MACRa 01 DATA aa^OO^B^D ( U #40B; ENDM 
MACRa Oi DATA S30006B'^D ( i ) ♦40B| ENDM 
ENDF 

MACR9 NiECHRWD EGU ECHRWD*4^00B+N( i) tB; NECHR EQU NECHR+1 
JF NECHR«2| DATA ECHRWD;ECHRWD EQU 0;N£CHR EQU 01 ENDFj ENDM 
MACRa N;ECHVB EQU N(l)B; RPT NC2); ECHR ECNV 
EQU |CHVB*N(3)j ENDRi ENDM 

MACRa LlENTCNT NARG; RPT ENTCNT;U(ENTCNT > EQU TRAP 
LCENTCNT)|ENTCNT EQU ENTCNT-U ENDR| ENDM 
MACRa Dj D(2) 

IF DU); BRU PACACT; BRU PEST 
EUSF U 8RU PESTi BRU PACACTj ENDF| ENpM 

MACRa OniBL EQU D{2)i RPT Di2)i IDA DCU'<'XL8L*U IRSH 6 
EQU iliU»U ENDRl ENDM 



* EXEC ENTRY PaiNTS 



EXEC! |QU 
EXECP IQU 
a.FF I NT EQU 


iOOOOB 
lOOOlB 
10002B 


* 




« 





DP MACRa DjENTCNT EQU D( 1 ) •B#200B*D{2 )#100B 
•►*^00OO000B*D(4) (AND)1»4^0B+D(4) ( AND )2»10000000B 

RPT D(3)| DATA ENTCNT;ENTCnT EQU ENTCNT^iOOBJ 



ENDRJ ENDM 



FaRGT MACR9 D^ENTCNT NARGj RPT ENTCNTi FRGT P(ENTCNT) 



INTCNT IPy INTCNT^U |NDR^ |NDH 

F8RGT QRXriAIBi8PB#8RB#AMBiAP8#AKB 

r©RGT MBUFX#PNXF#LPXF 

FQRGT RTCNT#PNCNT/TCNT#IPCNT 

F0RGT RTWT#PNWT#TXWT 

F@RaT NTAPEiNUINK^NBUFX^NIBUF 

F0RQT NTRTRY|NTWTRY#NDTRy 

F8RQT NDDWiNDXWiNOBW 

F9RGT NF|tE#UHSZ#NTTYCjTTYEWM 

F9RQT NPAC#NPPARjNJ88jNJ98JjNFQU#NSQU 

FtRGT NP0PjNM|H#N$MEM#NCMEM#NUMEM 

FeRGT NPUQ#NSeC#(.2NSEC#NDRQ#NSBND#NSAMjNSMT 

F9RGT DBB#ENTCNT 

F0RQT SMIFILjSMBA#SHDRN#FBWRD/SM©FIL 

F8RQT BXe>BBP#BFP#BlNi9IC#BDN/BDCi8IP/BIA 

FREEZE 

IND 



SMDiG " IDENT 

♦ VERSION 12 
# 

♦ SYfTIM 



7/03/67 
^/i8/67 

rUAOSi ©PPS| PARAMETERS, AND MACRiS 



1 



# ASSEMBLY FLAGS 
CRXP EQU 
PNXF iou 
kPXF IqU 
RILCNN lOU 
940M EQU 



ARMF 

VI 

Vt 

V3 

V4 

V5 

V$ 

V7 

VI 

rci 

CI8I 

# ©PDS 

SBRS 

T§N 

CKN 

CKF 

IRRi 

LRR2 

LRR3 



IQU 
KQU 
IQU 
EQU 
EQU 
IQU 
EQU 
EQU 
IQU 

IQU 



9Pp 
OPO 
8PP 
9PP 

aPD 
ePD 

8PD 
IF 



im CARD READER) 
% (PAPER TAPE PUNCH 
•1 (N8 LINE PRINTER) 
•I {0LD DRUM CHANNEL) 
•1 <•! F8R BERKELEVi 
J (ARMJNG FEATURE) 
(VERSI0N 1.85»i) 
{VIRSI8N lt8S«2) 
(VERSrQN lt85»3) 
(VERSI8N it85w#) 
{VERSION l.»85»5) 
(VERSIQN li85»6) 
(VERSI0N lt85-7) 



I F8R 940) 



(RELABELED VERS|9N) 

(FCB CHANGES) 
iX*Bl C8MPATJBLE FILES) 



i73Q0000Bilil 

00222000B#? 

002201Q0B#g 

002202Q0B#2 

00220400B*2 

002210008/2 

0022HP0B#2 

V5 



* PR|NT|R CeMMANDS 



EPT 



PFT 



MACR0 

DATA 
INDM 
MACR8 
DATA 



4014060B 



4»0U06QB 



SYSTEM M8DE BRS 

G8 FR8M N8RMAL T9 M8NIT9R M8DE 

TURN 8N THE CLOCK 

TURN 8FF THE CL8CK 

LeAD RELABELLING REGISTER 1 

L8AD RELABELLING REGISTER 2 

L9AD RELABELLING REGISTER 3 



END IF PAGE TEST 



SKIP IF Ne PRINTER ERR0R 



PRT 



SK|PT9 



space: 



PRINT 



CAT 



ENOM 

MACR9 

DATA 

ENDM 

MACR8 

DATA 

ENPM 

MACR8 

DATA 

ENDH 

MACR9 

DATA 

DATA 

PBl 

ENDM 

QPD 



40i2060B 



D 



SKIP IF PRINTER READY 



210460i*D(n»100QB 



210660i'^Da)*100C8 



# BREAKP0INT 
8PT 8PD 

INDF 
# 

* I/a DEVICE 
TTYS MACRe 
TTY$KS EQU 



E9D 

AIR 

RRF 

WRF 

R|N 

leiDE 

I9RDE 

R3R 

RSE 

CETE 

I9SDW 

I8RDW 

ALD 

OSR 

DRT 



apD 

^PD 

aPD 
epD 

EQU 

MACRO 

MACR9 

MACR8 

EQU 

EQU 

fPD 

9PD 

8PD 



2420606 
2i52Q0B 
Oil) 

040140Q0B#2 

TEST 

04020000B#e 



epD's 

; DATA 202777778; 
240770008 
00600000e#Ui 
00610026B#2 
00602226B#2 
00602266B#2 
00616200B#2 
00617200B 
006140008 
; SKS* 10026BJ 
; SKS# 110268/ 
i SKS* llOOOBi 
214200B 
214000i 
002100g6B#2 
Q0202626B#2 
04010026B#2 



AlERT INTERLACE^ 1 CNARt PER W©RD 
ARM |31# DISCONNECT WHEN 
TRANSMISSION IS CeMPUETEi 



ENDM 



AlERT RAD 
READ RAD 
WRITE RAD 
RAD I9SD 



ENDM 
ENDM 
ENDM 



ALERT DISC 
DISC READ 
DISC READY TEST 



OCT ePD 0kQX10Q0Bi2 



DISC ERR9R TEST 
DISC CHANNEL ERR9R 



TEST 



* PARAMETERS 

BE ^GU i23 

NPeP EQU 44B 

« W BUFFER DEVICE PARAMETERS 

RTCNT EQU 6^ 

PNCNT EQU ^0 

CRCNT IQU #0 

CRCNTB EQU 40 

CPCNT EQU 40 

CPCNTB EQU 40 

NTAPE IQU a 

NLINK IQU 

tCNT EQU 199 

LPCNT IQU X3Z 

RTWT EQU RTCNT#40/3 

PNWT EQU PNCNT#400/6 

CRWT Iqu 300 

CPWT IQU 150 

TXWT EQU 20+TCNT/iO 

LPWT EQU 133 

NTRTRY EQU |0 

NTWTRY EQU 3 

« FILE PARAMETERS 

NFILE EQU 40 

MiUFX EQU 340DOO0OB 

DPB EQU 00400000B 

# TTY PARAMETERS 

NTTY IQU 32 NUMBER eF TTYS 

NTTB EQU NTTY^NtlNK 

NLTTC IQU 

NTTYC IQU 70 

TTYEWM IQU 20 

AMB EQU 400003 

AIB EQU JOOOOOi 

APB EQU JOOOOOOOB 



LAST BERKELEY BR$. 

NUMBER 8F SYSPePS IN USEt 

PAPER TAPE READER BUFFER LENGTH 
PAPER TAPE PUNCH BUFFER LENGTH 
CARD REAPER iUFFER LENGTH 

CARD PUNCH BUFFER LENGTH 

NUMBER eF MAG TAPE UNITS 

LENGTH 0F MAG TAPE BUFFER 
LINE PRINTER BUFFER LENGTH 
PAPER TAPE READ TIME 
PAPER TAPE PUNCH TIME 
CARD READ TIME 
CARD PmCH TIME 
MAG TAPE TIME 
LINE PRINT TIME 
NUMBER 8F REREADS 
NUMBER eF REWRITES 

NUMBER 9F FILES 
FBWRD F0R EXEC BL9CK 
PR0TECTEP FILE BUSY BIT 



T9TAL TTY BUFF|RS 

NUMBER 0F CHARS IN TTY BUFFER 
TTY EARLY WARNING (2 SEC) 
ACCEPT MESSAGE BIT 
ACCEPT INPUT BIT 
ACCEPT PRINTER LINK BIT 



AKB 


EQg 




aOOOOOB ACCEPT KEY88ARD LINK BIT 


8RB 


IQU 




4*0000008 a»LEVEU INPUT BIT 


8Pi 


EQU 




2000000B S^LEVEL 9UTPUT BIT 


ILB 


EQU 




lOOOOOOB INPUT LINK BIT 


918 


IQU 




4000008 aUTPUT LINK BIT 


# PAC 


TABUE 


: PARAMETERS 


NpQU 


IQU 


x^ 


NUMBIR aF CieCK CYCLES IN SH0RT QUANTUM. 


NFQU 


EQU 




16 FULL QUANTUM SIZE 


NPAC 


EQU 




i44 NUMBER 0F PACT SL9TS 


NPPAR 


EQU 


10 


LENGTH SF PACT ENTRY 


♦ J9B 


AND MEM6RY PARAMETERS 


NjeBl 


EQU 




32 NUMBER' 9F J98S W|TH8UT PtUi 


Nges 


gQU 




NU0BUI NUMBER 8F USSS 


UMSZ 


IQU 




15 INITIAL MACHINE SIZE 


NMEM 


EQU 


32 


NUMBER eP PAGES 


NSMEM 


IQU 


7 


NUMBER eF PAGES USED BY SYSTEM 


NCMEH 


IQU 




60B CeMMdN PART 6F USER MACHINE 


NSMT 


EQU 




iOOB SUE 6F SMT 


NUMIM 


EQU 


t008«NCMEM NUMBIR 9F PRIVATE USER PAGES 


NPUQ 


EQU 


16 


NUMBER 0F PUCT ENTRI|$ 


# f^AD 


AND SWAPPING PARAMETERS 


NRDQ 


IQU 




20 MUST BE GT USER'S PAGES*2 


NRTRV 


IQU 




1 Na, 9F READ TRIES F9R RAD. 


NRAD 


IQU 




4 N8t eF RADS 


NIEC 


IQU 




2*NRAD 


lINiEC 


EQU 




1 


NSBND 


EQU 




18 NUMBER 9F 16K BANDS RESERVED F 


NSSP 


IQU 




4000B L^C. 8F iST SWAPPING AREA, MUST BE A 


# 






MULTIPLE 0F 10008* 


NSAM 


IQU 


U 


iUE 8F SWAPPER ASS8CIATIVE MEMSRY 


# DISC 


PARAMETERS 


NPTRY 


IQU 




# NUMBER 8F READ TRIES F9R DISC. 


NPRQ 


EQU 




30 N8i 8F J8BS IN DISC QUEUE. 


NDISCS 


EQU 




16 




IF 




NDlSCSi32 


NP0S 


EQU 




aOl ELSF 1JNP8S EQU 40; ENDF 


MAXP 


EQU 


NP9S/2*200B*3l*2Q0B 


HINP 


IQU 


*NP9$/2#200B*32*200B 


TABUEN 


EQU 


NPeS/2*2*NDISCS»32*23 



TABLEN EQU JABltH/2ik 

# BUFFER PARAMETERS 
NBUFX EQU 3 
NIUF EQU NBUFX 
NDOW IqU 255 
BIN EQU NDDW*2 
B|C |QU NDDW*3 
BPN EQU NDDW*^ 
BPC EQU NDDW*5 
SIP EQU NDDW+6 
B|A IQU ND0W*7 
NPXW EQU 124 

IF C181 

NDXWC EQU 78 

gl$r UNDXWC EQU NDXWi 

NPXWCR EQU NDXWC*J 

NPXWR IQU 128 NUN 

NDBW EQU NDDW*8*NDXWR 

NPBS IQU NBUF*NDBW 

BXe EQU ND3W.NPXWR 

BBP EQU 0Xa+NDXW»l 

8FP EQU BX94.NPXW»E 

IXC EQU BXe^NDXW 

# TS BteCK MAP 

DBT9P EQU 37777B«NDB$*5-1-17- 

Smfll EQU DBieP 

SMIFII, IQU PBieP^i 

SHBA EQU DBT8P*2 

SMPRN EQU P8TeP*3 

FBWRD EQU PBTeP*^ 

RMAP EQU PBT8P+5 RAD B 

PB EQU 0BT8P*6 

PX IQU PB*8 

PPB EQU PX*8 

NF0RK EQU PPB+l 

FBAPR EQU DBT8P+5+Ui7 + l 

# M8NITeR AND EXEC teCATlSNS 
RAW EQU iOOB 

CAW EQU 44000B 



NUMBER SF BUFFERS IN THE EXEC BL8CK 

T8TAU NUMBER 8F DISC BUFFERSi 

UENSTH 8F DATA BL8CK 

INDEX BU8CK NUMBER 

INDEX CHANGED FLAG 

DATA B18CK NUMBER 

CHANGED DATA FLAG 

INDEX B18CK P8INTER 

INDEX BL8CK DRUM ADDRESS 

LENGTH 8F INDEX BLOCK 

MAX NUMBER 8F DATA BL8CK? PER FILE 
ENpF 

BER 8F N8R0S T8 READ/WRITE 
LENGTH SF DISC BUFFER 
SIZE eF BUFFER AREA 
INDEX BL8CK SRIGIN REL T8 BUFF 
BACKWARD CHAIN W8RD 
F8RWARD CHAIN W8RD 
INDEX BLiCK CHECK W9RD 

1 1ST W9RD AFTER PRSYMS 
SEC8NDARY MEM8RY 8UTPUT FILE 
SECeNDARY MEM8RY INPUT FILE 
SEC8NDARY MEM8RY BUFFER ADDRESS 
SEC8NDARY MEM8RY BDN ADDRESS 
BUFFER AVAILABILTY BIT W8RD 

IT MAP F8R FILES AND SWAPPING 



P8INTER Te PB CHAIN 
NUMBER 8F F8RKS C8UNTER 
FIRST BUFFER ADDRESS 

RAD ADDRESS BF W 
C8RE ADDRESS 8F W 



DAW 

RADSC 

CADSC 

DAD^C 

CASET 

DASET 

DAEXEC 

RAEXEC 

» MACR8S 

A 

B 

AB 

BA 

BX 

XB 

E 

XA 

AX 

N 

X 

capY 



IQU 

EQU 

EQU 
EQU 
EQU 
EQU 

Iqu 



I 

M 

I 

M 



ARMI 

ARMI 

ENTRY 
ENTCNT 
SET I NT 

TDT 







40000B 

300B 

50000B 

340B 

lOOB 

600B 



DISC ADDRESS 8r W 
RAD ADDRESS QF DISC 
C8RE ADDRESS ©F DISC 
DISC ADDRESS df DISC 
C8RE ADDRESS 0F SET 
DISC ADDRESS 8F SET 
DISC ADDRESS eF EXEC 
RAD ADDRESS 9F EXEC 



1 
2 

lOB 

HOB 

40B 

1006 

200B 

**00B 

iOOOB 

20000000B 

D 


X 
K 
U+D(M) 

4600000B'^L 



EQU 
EQU 
EQU 
EQU 

IQU 

EQU 

IQU 

EQU 

EQU 

IQU 

IQU 

MACR9 

NARG 

EQU 

IQU 

RPT 

IQU 

IQU 

ENDR 

DATA 

ENDM 

l> 

MACRB 

EISF 

MACR8i 

ENDF 

MACR9 LilNTCNT NARGi RPT ENTCNTjl, (ENTCNT ) EXT 

EQU ENTCNT"lj ENORi ENDM 

MACRe Ai UDA sA(Ul STA BLK31; ENDM 

MACR8 L>L,(n»W EQU *i RPT NTAPE; L(2) U (3 ) •B-<'*»L ( 1 ) • W; ENDR; ENDM 



ARMF 
); AIRI 

1 

ENDM 



P8T DU); ENDM 



RMFF 
SMFF 
READ 



SHFF 
RHFF 

ECHR 

ECHB 

ECHVB 

TRP 

FRQT 
CACR 






IF VI 
MACR9i ENDM 
MACR9; ENDM 

MACRe P#G#UQ(i) RSRi BRU *«li ALR; PQJ »D(3)/100B 
gM* JQOOOBi DATA I9SDE*P( U/2000B ( AND)37B^D« 2)/^0000B( AND) 3«40B 
P8T iDd) (AND)1777B*4000aB*D(2) (AN0)37777B; RRF; RSRi BRU ♦-I 
RSE; BRU G(i); CETE; BRU 6(1)^ ENDM 
EISF I 

MACR8 O; DATA g3^006B+D ( 1 ) *#OBi ENDM 
MACR9 t>i DATA 3300069*0 U ) #40B| ENDM 
INDF 

MACRQ NjECHRWD EQU ECHRWD*400B*N ( 1) tB^NECHR EGU NECHR+1 
IF NECMR.2I DATA ECHRWD;ECHRWD EQU OINECMR EQU 01 ENDFj ENDM 
MACRO N;ECHVB EQU N(1)B; RPT N(2); ECHR ECHV 
EQU ECHVi*N(3M ENDR^ ENDM 

MACRe L^ENTCNT NARQi RPT ENTCNT;L(ENTCNT ) EQU TRAP 
1(ENTCNT)|ENTCNT EQU ENTCNT^H ENQRj ENDM 
MACR© Di D(2) 

JF 0(1) t BRU PACACTi BRU PEST 
EISF li BRU PE$T| BRU PACACT^ ENDFi ENDM 

MACR8 DULBl EQU D{2)i RPT DC2)| IDA DCi)+lLBl*U IRSH 6 
IQU lliL«U ENDRl ENDM 



# EXEC ENTRY P6INTS 



EXEC! 
EXECP 
®FF|NT 

« 


IQU 
EQU 

EQU 


lOOOOB 
100018 
10002B 


« 






# 







m MACR9 plENTCNT EQU D( 1 ) .B*200B*D«2 )*100B 

♦♦400000008*0(4) ( AND ) 1*40B*P ( 4 ) ( AND)2*10000000B 

RPT D(3); DATA ENTCNT;ENTCNT EQU ENTCNT*100B^ 



ENDR^ ENDM 



F9RGT MACR© D^ENTCNT NARQ; RPT ENTCNT; FRGT O(ENTCNT) 



ENTCNT IQU CNTCNT»U |N0R| ENDH 

FQRGT CRXr/AlB|8PB#8RB#AMB#APB#AKB 

F9RGT MBUFX#PNXF#LPXF 

FaRGT RTCNT#PNCNTiTCNT#UPCNT 

F&RQT RTWTjPNWT#TXWT 

F9RGT NTAPE#NLINK^NBUFX#NBUF 

FORGT NTRTRY#NTWTRY#NDTRY 

F9RQT NOOW#NDXW#ND^W 

F9RGT NFIUE#UMSZ#NTTYC*TTYEWM 

F9RGT NPAC#NPPAR|NgeB#NU9Bl#NFQUjNSQU 

FdRQT NP8PjNMEM#NSMEM#NCMEMiNUMEM 

F9RGT NPUQ|NSEe#L2NSECiNDRQ#NSiND#NSAM#NSHT 

FeRGT DBB/ENTCNT 

F9RQT SMIFILiSMBAiSMDRN#F8WRD/SM9FlL 

F9RGT BXQ#BBP#BFP#BINiBJC#BDN#BDC#BIP#^IA 

FREEZE 

END 



